El Mac 8

home *** CD-ROM | disk | FTP | other *** search
/ El Mac 8 / El Mac 8.iso / Shareware / HyperCard / ArrayMaster 1.0b1 < prev next >
MacBinary | 1996-03-24 | 29.5 KB | [STAK/WILD]
open in:
MacOS 8.1 extracted |
Win98 extracted |
DOS extracted
browse contents |
view JSON data |
view as text

This file was processed as: MacBinary (archive/macBinary).
Confidence	Program	Detection	Match Type	Support
`100%`	dexvert	HyperCard Stack `(archive/hypercard)`	idMeta	Supported
`10%`	dexvert	MacBinary `(archive/macBinary)`	fallback	Supported
`100%`	file	MacBinary II, inited, Wed Mar 6 04:46:22 1996, modified Sun Mar 24 16:47:15 1996, creator HyperCard, type HyperCard stack, 29504 bytes "ArrayMaster 1.0b1" , at 0x73c0 401 bytes resource	default (weak)
`99%`	file	data	default
`74%`	TrID	Mac HyperCard stack (MacBinary)	default
`25%`	TrID	MacBinary 2	default (weak)
`100%`	siegfried	fmt/1762 MacBinary (II)	default
`100%`	lsar	MacBinary	default
id metadata
key	value
macFileType	`[STAK]`
macFileCreator	`[WILD]`
hex view
+--------+-------------------------+-------------------------+--------+--------+
|00000000| 00 11 41 72 72 61 79 4d | 61 73 74 65 72 20 31 2e |..ArrayM|aster 1.|
|00000010| 30 62 31 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |0b1.....|........|
|00000020| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000030| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000040| 00 53 54 41 4b 57 49 4c | 44 01 00 00 00 00 00 00 |.STAKWIL|D.......|
|00000050| 00 00 00 00 00 73 40 00 | 00 01 91 ad 63 0f 6e ad |.....s@.|....c.n.|
|00000060| 7b 73 63 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |{sc.....|........|
|00000070| 00 00 00 00 00 00 00 00 | 00 00 81 81 9e 50 00 00 |........|.....P..|
|00000080| 00 00 26 00 53 54 41 4b | ff ff ff ff 00 00 00 00 |..&.STAK|........|
|00000090| 00 00 00 0a 00 00 73 40 | 00 00 26 00 00 00 00 00 |......s@|..&.....|
|000000a0| 00 00 00 00 00 00 00 01 | 00 00 0a e9 00 00 00 01 |........|........|
|000000b0| 00 00 0b de 00 00 08 7d | 00 00 00 00 00 00 00 00 |.......}|........|
|000000c0| 00 00 00 00 00 00 00 00 | 00 05 00 00 10 00 00 00 |........|........|
|000000d0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000000e0| 02 20 80 00 02 20 80 00 | 02 20 80 00 02 20 80 00 |. ... ..|. ... ..|
|000000f0| dd ec 5e 5f 00 00 00 00 | 00 28 00 10 01 7e 02 10 |..^_....|.(...~..|
|00000100| 00 00 00 00 01 e0 02 80 | 00 00 00 00 00 00 00 00 |........|........|
|00000110| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000120| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000130| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000140| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000150| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000160| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000170| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000180| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000190| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000001a0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000001b0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000001c0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000001d0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000001e0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000001f0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000200| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000210| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000220| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000230| 00 00 0d bb 00 00 0c a6 | 01 56 02 00 00 00 00 00 |........|.V......|
|00000240| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000250| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000260| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000270| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000280| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000290| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000002a0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000002b0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000002c0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000002d0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000002e0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000002f0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000300| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000310| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000320| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000330| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000340| 00 00 00 00 00 00 00 00 | 80 00 00 00 08 00 00 00 |........|........|
|00000350| 88 00 22 00 88 00 22 00 | 88 88 22 22 88 88 22 22 |.."...".|..""..""|
|00000360| 88 aa 22 aa 88 aa 22 aa | cc aa 33 aa cc aa 33 aa |.."...".|..3...3.|
|00000370| ee aa bb aa ee aa bb aa | ee bb bb ee ee bb bb ee |........|........|
|00000380| ff bb ff ee ff bb ff ee | ff bb ff ff ff bb ff ff |........|........|
|00000390| 80 10 02 20 01 08 40 04 | ff ff ff ff ff ff ff ff |... ..@.|........|
|000003a0| 88 22 88 22 88 22 88 22 | 11 22 44 88 11 22 44 88 |."."."."|."D.."D.|
|000003b0| c4 80 0c 68 43 02 30 26 | b1 30 03 1b d8 c0 0c 8d |...hC.0&|.0......|
|000003c0| aa 00 aa 00 aa 00 aa 00 | 88 22 55 22 88 22 55 22 |........|."U"."U"|
|000003d0| 88 55 22 55 88 55 22 55 | 77 dd 77 dd 77 dd 77 dd |.U"U.U"U|w.w.w.w.|
|000003e0| 80 00 00 00 00 00 00 00 | aa 55 aa 55 aa 55 aa 55 |........|.U.U.U.U|
|000003f0| 03 84 48 30 0c 02 01 01 | 82 44 39 44 82 01 01 01 |..H0....|.D9D....|
|00000400| 88 14 22 41 88 41 22 14 | 80 80 41 3e 08 08 14 e3 |.."A.A".|..A>....|
|00000410| 22 04 8c 74 22 17 98 10 | be 80 88 08 eb 08 88 80 |"..t"...|........|
|00000420| 25 c8 32 89 64 24 4c 92 | a2 9c 41 be 2a c9 14 eb |%.2.d$L.|..A.*...|
|00000430| 40 a0 00 00 04 0a 00 00 | 80 40 20 00 02 04 08 00 |@.......|.@ .....|
|00000440| aa 00 80 00 88 00 80 00 | ff 80 80 80 80 80 80 80 |........|........|
|00000450| 08 1c 22 c1 80 01 02 04 | ff 80 80 80 ff 08 08 08 |..".....|........|
|00000460| f8 74 22 47 8f 17 22 71 | bf 00 bf bf b0 b0 b0 b0 |.t"G.."q|........|
|00000470| ff 7f be 5d a2 41 80 00 | fa f5 fa f5 a0 50 a0 50 |...].A..|.....P.P|
|00000480| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000490| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000004a0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000004b0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000004c0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000004d0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000004e0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000004f0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000500| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000510| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000520| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000530| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000540| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000550| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000560| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000570| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000580| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000590| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000005a0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000005b0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000005c0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000005d0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000005e0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000005f0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000600| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000610| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000620| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000630| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000640| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000650| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000660| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000670| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000680| 54 68 65 73 65 20 73 63 | 72 69 70 74 73 20 61 72 |These sc|ripts ar|
|00000690| 65 20 63 6f 70 79 72 69 | 67 68 74 20 42 65 6e 20 |e copyri|ght Ben |
|000006a0| 4c 61 77 73 6f 6e 20 31 | 39 39 36 2c 20 62 75 74 |Lawson 1|996, but|
|000006b0| 20 6d 61 79 20 62 65 20 | 75 73 65 64 20 66 72 65 | may be |used fre|
|000006c0| 65 6c 79 2e 0d 43 6f 6d | 6d 65 72 63 69 61 6c 20 |ely..Com|mercial |
|000006d0| 75 73 65 20 6f 72 20 64 | 69 73 74 72 69 62 75 74 |use or d|istribut|
|000006e0| 69 6f 6e 20 62 79 20 70 | 65 72 6d 69 73 73 69 6f |ion by p|ermissio|
|000006f0| 6e 20 6f 6e 6c 79 2e 0d | 42 65 6e 20 4c 61 77 73 |n only..|Ben Laws|
|00000700| 6f 6e 20 63 61 6e 20 62 | 65 20 63 6f 6e 74 61 63 |on can b|e contac|
|00000710| 74 65 64 20 61 74 20 3c | 62 65 6e 6c 40 73 69 63 |ted at <|benl@sic|
|00000720| 6b 6b 69 64 73 2e 6f 6e | 2e 63 61 3e 20 6f 72 20 |kkids.on|.ca> or |
|00000730| 3c 62 65 6e 6c 40 63 6d | 61 63 2e 6f 72 67 3e 2e |<benl@cm|ac.org>.|
|00000740| 0d 0d 66 75 6e 63 74 69 | 6f 6e 20 67 65 74 41 72 |..functi|on getAr|
|00000750| 72 61 79 45 6c 65 6d 65 | 6e 74 20 54 68 65 41 72 |rayEleme|nt TheAr|
|00000760| 72 61 79 2c 20 52 6f 77 | 2c 20 43 6f 6c 2c 20 52 |ray, Row|, Col, R|
|00000770| 6f 77 44 65 6c 69 6d 2c | 20 43 6f 6c 44 65 6c 69 |owDelim,| ColDeli|
|00000780| 6d 0d 69 66 20 54 68 65 | 41 72 72 61 79 20 3d 20 |m.if The|Array = |
|00000790| 22 3f 22 20 74 68 65 6e | 20 72 65 74 75 72 6e 20 |"?" then| return |
|000007a0| 22 67 65 74 41 72 72 61 | 79 45 6c 65 6d 65 6e 74 |"getArra|yElement|
|000007b0| 28 54 68 65 41 72 72 61 | 79 2c 5b 52 6f 77 5d 2c |(TheArra|y,[Row],|
|000007c0| 5b 43 6f 6c 5d 2c 5b 52 | 6f 77 44 65 6c 69 6d 5d |[Col],[R|owDelim]|
|000007d0| 2c 5b 43 6f 6c 44 65 6c | 69 6d 5d 29 22 0d 69 66 |,[ColDel|im])".if|
|000007e0| 20 54 68 65 41 72 72 61 | 79 20 3d 20 22 21 22 20 | TheArra|y = "!" |
|000007f0| 74 68 65 6e 20 72 65 74 | 75 72 6e 20 22 67 65 74 |then ret|urn "get|
|00000800| 41 72 72 61 79 45 6c 65 | 6d 65 6e 74 28 29 20 31 |ArrayEle|ment() 1|
|00000810| 2e 30 20 a9 20 42 65 6e | 20 4c 61 77 73 6f 6e 20 |.0 . Ben| Lawson |
|00000820| 31 39 39 36 2e 20 46 72 | 65 65 20 66 6f 72 20 70 |1996. Fr|ee for p|
|00000830| 65 72 73 6f 6e 61 6c 20 | 75 73 65 2e 22 0d 69 66 |ersonal |use.".if|
|00000840| 20 52 6f 77 20 3d 20 65 | 6d 70 74 79 20 74 68 65 | Row = e|mpty the|
|00000850| 6e 20 70 75 74 20 30 20 | 69 6e 74 6f 20 52 6f 77 |n put 0 |into Row|
|00000860| 0d 65 6c 73 65 20 69 66 | 20 52 6f 77 20 69 73 20 |.else if| Row is |
|00000870| 6e 6f 74 20 61 6e 20 69 | 6e 74 65 67 65 72 20 74 |not an i|nteger t|
|00000880| 68 65 6e 20 72 65 74 75 | 72 6e 20 22 49 6e 76 61 |hen retu|rn "Inva|
|00000890| 6c 69 64 20 72 6f 77 20 | 73 70 65 63 69 66 69 63 |lid row |specific|
|000008a0| 61 74 69 6f 6e 22 0d 69 | 66 20 43 6f 6c 20 3d 20 |ation".i|f Col = |
|000008b0| 65 6d 70 74 79 20 74 68 | 65 6e 20 70 75 74 20 30 |empty th|en put 0|
|000008c0| 20 69 6e 74 6f 20 43 6f | 6c 0d 65 6c 73 65 20 69 | into Co|l.else i|
|000008d0| 66 20 43 6f 6c 20 69 73 | 20 6e 6f 74 20 61 6e 20 |f Col is| not an |
|000008e0| 69 6e 74 65 67 65 72 20 | 74 68 65 6e 20 72 65 74 |integer |then ret|
|000008f0| 75 72 6e 20 22 49 6e 76 | 61 6c 69 64 20 63 6f 6c |urn "Inv|alid col|
|00000900| 75 6d 6e 20 73 70 65 63 | 69 66 69 63 61 74 69 6f |umn spec|ificatio|
|00000910| 6e 22 0d 70 75 74 20 74 | 68 65 20 69 74 65 6d 44 |n".put t|he itemD|
|00000920| 65 6c 69 6d 69 74 65 72 | 20 69 6e 74 6f 20 6f 6c |elimiter| into ol|
|00000930| 64 44 65 6c 69 6d 0d 70 | 75 74 20 76 61 6c 75 65 |dDelim.p|ut value|
|00000940| 28 52 6f 77 44 65 6c 69 | 6d 29 20 69 6e 74 6f 20 |(RowDeli|m) into |
|00000950| 72 6f 77 44 65 6c 69 6d | 20 2d 2d 20 69 6e 20 63 |rowDelim| -- in c|
|00000960| 61 73 65 20 74 68 65 79 | 20 63 6f 6d 65 20 69 6e |ase they| come in|
|00000970| 20 61 73 20 61 6e 20 65 | 78 70 72 65 73 73 69 6f | as an e|xpressio|
|00000980| 6e 0d 70 75 74 20 76 61 | 6c 75 65 28 43 6f 6c 44 |n.put va|lue(ColD|
|00000990| 65 6c 69 6d 29 20 69 6e | 74 6f 20 43 6f 6c 44 65 |elim) in|to ColDe|
|000009a0| 6c 69 6d 0d 69 66 20 52 | 6f 77 44 65 6c 69 6d 20 |lim.if R|owDelim |
|000009b0| 3d 20 65 6d 70 74 79 20 | 74 68 65 6e 20 70 75 74 |= empty |then put|
|000009c0| 20 72 65 74 75 72 6e 20 | 69 6e 74 6f 20 52 6f 77 | return |into Row|
|000009d0| 44 65 6c 69 6d 0d 65 6c | 73 65 20 70 75 74 20 63 |Delim.el|se put c|
|000009e0| 68 61 72 20 31 20 6f 66 | 20 52 6f 77 44 65 6c 69 |har 1 of| RowDeli|
|000009f0| 6d 20 69 6e 74 6f 20 52 | 6f 77 44 65 6c 69 6d 0d |m into R|owDelim.|
|00000a00| 69 66 20 43 6f 6c 44 65 | 6c 69 6d 20 3d 20 65 6d |if ColDe|lim = em|
|00000a10| 70 74 79 20 74 68 65 6e | 20 70 75 74 20 63 6f 6d |pty then| put com|
|00000a20| 6d 61 20 69 6e 74 6f 20 | 43 6f 6c 44 65 6c 69 6d |ma into |ColDelim|
|00000a30| 0d 65 6c 73 65 20 70 75 | 74 20 63 68 61 72 20 31 |.else pu|t char 1|
|00000a40| 20 6f 66 20 43 6f 6c 44 | 65 6c 69 6d 20 69 6e 74 | of ColD|elim int|
|00000a50| 6f 20 43 6f 6c 44 65 6c | 69 6d 0d 0d 73 65 74 20 |o ColDel|im..set |
|00000a60| 74 68 65 20 69 74 65 6d | 44 65 6c 69 6d 69 74 65 |the item|Delimite|
|00000a70| 72 20 74 6f 20 52 6f 77 | 44 65 6c 69 6d 0d 69 66 |r to Row|Delim.if|
|00000a80| 20 72 6f 77 20 3d 20 30 | 20 61 6e 64 20 43 6f 6c | row = 0| and Col|
|00000a90| 20 3d 20 30 20 74 68 65 | 6e 20 2d 2d 20 77 68 6f | = 0 the|n -- who|
|00000aa0| 6c 65 20 64 61 6d 6e 20 | 74 68 69 6e 67 0d 70 75 |le damn |thing.pu|
|00000ab0| 74 20 54 68 65 41 72 72 | 61 79 20 69 6e 74 6f 20 |t TheArr|ay into |
|00000ac0| 61 72 72 61 79 44 61 74 | 61 0d 65 6c 73 65 20 69 |arrayDat|a.else i|
|00000ad0| 66 20 43 6f 6c 20 3d 20 | 30 20 74 68 65 6e 20 2d |f Col = |0 then -|
|00000ae0| 2d 20 77 68 6f 6c 65 20 | 72 6f 77 0d 70 75 74 20 |- whole |row.put |
|00000af0| 69 74 65 6d 20 52 6f 77 | 20 6f 66 20 54 68 65 41 |item Row| of TheA|
|00000b00| 72 72 61 79 20 69 6e 74 | 6f 20 61 72 72 61 79 44 |rray int|o arrayD|
|00000b10| 61 74 61 0d 65 6c 73 65 | 20 69 66 20 52 6f 77 20 |ata.else| if Row |
|00000b20| 3d 20 30 20 74 68 65 6e | 20 2d 2d 20 77 68 6f 6c |= 0 then| -- whol|
|00000b30| 65 20 63 6f 6c 75 6d 6e | 0d 72 65 70 65 61 74 20 |e column|.repeat |
|00000b40| 77 69 74 68 20 69 20 3d | 20 31 20 74 6f 20 6e 75 |with i =| 1 to nu|
|00000b50| 6d 62 65 72 20 6f 66 20 | 69 74 65 6d 73 20 69 6e |mber of |items in|
|00000b60| 20 54 68 65 41 72 72 61 | 79 0d 67 65 74 20 69 74 | TheArra|y.get it|
|00000b70| 65 6d 20 69 20 6f 66 20 | 54 68 65 41 72 72 61 79 |em i of |TheArray|
|00000b80| 0d 73 65 74 20 74 68 65 | 20 69 74 65 6d 44 65 6c |.set the| itemDel|
|00000b90| 69 6d 69 74 65 72 20 74 | 6f 20 43 6f 6c 44 65 6c |imiter t|o ColDel|
|00000ba0| 69 6d 0d 67 65 74 20 69 | 74 65 6d 20 43 6f 6c 20 |im.get i|tem Col |
|00000bb0| 6f 66 20 69 74 0d 73 65 | 74 20 74 68 65 20 69 74 |of it.se|t the it|
|00000bc0| 65 6d 44 65 6c 69 6d 69 | 74 65 72 20 74 6f 20 52 |emDelimi|ter to R|
|00000bd0| 6f 77 44 65 6c 69 6d 0d | 70 75 74 20 69 74 20 69 |owDelim.|put it i|
|00000be0| 6e 74 6f 20 69 74 65 6d | 20 69 20 6f 66 20 61 72 |nto item| i of ar|
|00000bf0| 72 61 79 44 61 74 61 0d | 65 6e 64 20 72 65 70 65 |rayData.|end repe|
|00000c00| 61 74 0d 65 6c 73 65 20 | 2d 2d 20 6f 6e 65 20 65 |at.else |-- one e|
|00000c10| 6c 65 6d 65 6e 74 0d 67 | 65 74 20 69 74 65 6d 20 |lement.g|et item |
|00000c20| 52 6f 77 20 6f 66 20 54 | 68 65 41 72 72 61 79 20 |Row of T|heArray |
|00000c30| 2d 2d 20 67 65 74 20 74 | 68 65 20 72 6f 77 0d 73 |-- get t|he row.s|
|00000c40| 65 74 20 74 68 65 20 69 | 74 65 6d 44 65 6c 69 6d |et the i|temDelim|
|00000c50| 69 74 65 72 20 74 6f 20 | 43 6f 6c 44 65 6c 69 6d |iter to |ColDelim|
|00000c60| 0d 70 75 74 20 69 74 65 | 6d 20 43 6f 6c 20 6f 66 |.put ite|m Col of|
|00000c70| 20 69 74 20 69 6e 74 6f | 20 61 72 72 61 79 44 61 | it into| arrayDa|
|00000c80| 74 61 20 2d 2d 20 67 65 | 74 20 74 68 65 20 69 74 |ta -- ge|t the it|
|00000c90| 65 6d 0d 65 6e 64 20 69 | 66 0d 0d 73 65 74 20 74 |em.end i|f..set t|
|00000ca0| 68 65 20 69 74 65 6d 44 | 65 6c 69 6d 69 74 65 72 |he itemD|elimiter|
|00000cb0| 20 74 6f 20 6f 6c 64 44 | 65 6c 69 6d 0d 72 65 74 | to oldD|elim.ret|
|00000cc0| 75 72 6e 20 61 72 72 61 | 79 44 61 74 61 0d 65 6e |urn arra|yData.en|
|00000cd0| 64 20 67 65 74 41 72 72 | 61 79 45 6c 65 6d 65 6e |d getArr|ayElemen|
|00000ce0| 74 0d 0d 0d 66 75 6e 63 | 74 69 6f 6e 20 73 65 74 |t...func|tion set|
|00000cf0| 41 72 72 61 79 45 6c 65 | 6d 65 6e 74 20 54 68 65 |ArrayEle|ment The|
|00000d00| 44 61 74 61 2c 20 54 68 | 65 41 72 72 61 79 2c 20 |Data, Th|eArray, |
|00000d10| 52 6f 77 2c 20 43 6f 6c | 2c 20 52 6f 77 44 65 6c |Row, Col|, RowDel|
|00000d20| 69 6d 2c 20 43 6f 6c 44 | 65 6c 69 6d 0d 69 66 20 |im, ColD|elim.if |
|00000d30| 54 68 65 44 61 74 61 20 | 3d 20 22 3f 22 20 74 68 |TheData |= "?" th|
|00000d40| 65 6e 20 72 65 74 75 72 | 6e 20 22 73 65 74 41 72 |en retur|n "setAr|
|00000d50| 72 61 79 45 6c 65 6d 65 | 6e 74 28 54 68 65 56 61 |rayEleme|nt(TheVa|
|00000d60| 6c 75 65 2c 54 68 65 41 | 72 72 61 79 2c 5b 52 6f |lue,TheA|rray,[Ro|
|00000d70| 77 5d 2c 5b 43 6f 6c 5d | 2c 5b 52 6f 77 44 65 6c |w],[Col]|,[RowDel|
|00000d80| 69 6d 5d 2c 5b 43 6f 6c | 44 65 6c 69 6d 5d 29 22 |im],[Col|Delim])"|
|00000d90| 0d 69 66 20 54 68 65 44 | 61 74 61 20 3d 20 22 21 |.if TheD|ata = "!|
|00000da0| 22 20 74 68 65 6e 20 72 | 65 74 75 72 6e 20 22 73 |" then r|eturn "s|
|00000db0| 65 74 41 72 72 61 79 45 | 6c 65 6d 65 6e 74 28 29 |etArrayE|lement()|
|00000dc0| 20 31 2e 30 20 a9 20 42 | 65 6e 20 4c 61 77 73 6f | 1.0 . B|en Lawso|
|00000dd0| 6e 20 31 39 39 36 2e 20 | 50 75 62 6c 69 63 20 44 |n 1996. |Public D|
|00000de0| 6f 6d 61 69 6e 2e 22 0d | 69 66 20 52 6f 77 20 3d |omain.".|if Row =|
|00000df0| 20 65 6d 70 74 79 20 74 | 68 65 6e 20 70 75 74 20 | empty t|hen put |
|00000e00| 30 20 69 6e 74 6f 20 52 | 6f 77 0d 65 6c 73 65 20 |0 into R|ow.else |
|00000e10| 69 66 20 52 6f 77 20 69 | 73 20 6e 6f 74 20 61 6e |if Row i|s not an|
|00000e20| 20 69 6e 74 65 67 65 72 | 20 74 68 65 6e 20 72 65 | integer| then re|
|00000e30| 74 75 72 6e 20 22 49 6e | 76 61 6c 69 64 20 72 6f |turn "In|valid ro|
|00000e40| 77 20 73 70 65 63 69 66 | 69 63 61 74 69 6f 6e 22 |w specif|ication"|
|00000e50| 0d 69 66 20 43 6f 6c 20 | 3d 20 65 6d 70 74 79 20 |.if Col |= empty |
|00000e60| 74 68 65 6e 20 70 75 74 | 20 30 20 69 6e 74 6f 20 |then put| 0 into |
|00000e70| 43 6f 6c 0d 65 6c 73 65 | 20 69 66 20 43 6f 6c 20 |Col.else| if Col |
|00000e80| 69 73 20 6e 6f 74 20 61 | 6e 20 69 6e 74 65 67 65 |is not a|n intege|
|00000e90| 72 20 74 68 65 6e 20 72 | 65 74 75 72 6e 20 22 49 |r then r|eturn "I|
|00000ea0| 6e 76 61 6c 69 64 20 63 | 6f 6c 75 6d 6e 20 73 70 |nvalid c|olumn sp|
|00000eb0| 65 63 69 66 69 63 61 74 | 69 6f 6e 22 0d 70 75 74 |ecificat|ion".put|
|00000ec0| 20 74 68 65 20 69 74 65 | 6d 44 65 6c 69 6d 69 74 | the ite|mDelimit|
|00000ed0| 65 72 20 69 6e 74 6f 20 | 6f 6c 64 44 65 6c 69 6d |er into |oldDelim|
|00000ee0| 0d 70 75 74 20 76 61 6c | 75 65 28 52 6f 77 44 65 |.put val|ue(RowDe|
|00000ef0| 6c 69 6d 29 20 69 6e 74 | 6f 20 72 6f 77 44 65 6c |lim) int|o rowDel|
|00000f00| 69 6d 20 2d 2d 20 69 6e | 20 63 61 73 65 20 74 68 |im -- in| case th|
|00000f10| 65 79 20 63 6f 6d 65 20 | 69 6e 20 61 73 20 61 6e |ey come |in as an|
|00000f20| 20 65 78 70 72 65 73 73 | 69 6f 6e 0d 70 75 74 20 | express|ion.put |
|00000f30| 76 61 6c 75 65 28 43 6f | 6c 44 65 6c 69 6d 29 20 |value(Co|lDelim) |
|00000f40| 69 6e 74 6f 20 43 6f 6c | 44 65 6c 69 6d 0d 69 66 |into Col|Delim.if|
|00000f50| 20 52 6f 77 44 65 6c 69 | 6d 20 3d 20 65 6d 70 74 | RowDeli|m = empt|
|00000f60| 79 20 74 68 65 6e 20 70 | 75 74 20 72 65 74 75 72 |y then p|ut retur|
|00000f70| 6e 20 69 6e 74 6f 20 52 | 6f 77 44 65 6c 69 6d 0d |n into R|owDelim.|
|00000f80| 65 6c 73 65 20 70 75 74 | 20 63 68 61 72 20 31 20 |else put| char 1 |
|00000f90| 6f 66 20 52 6f 77 44 65 | 6c 69 6d 20 69 6e 74 6f |of RowDe|lim into|
|00000fa0| 20 52 6f 77 44 65 6c 69 | 6d 0d 69 66 20 43 6f 6c | RowDeli|m.if Col|
|00000fb0| 44 65 6c 69 6d 20 3d 20 | 65 6d 70 74 79 20 74 68 |Delim = |empty th|
|00000fc0| 65 6e 20 70 75 74 20 63 | 6f 6d 6d 61 20 69 6e 74 |en put c|omma int|
|00000fd0| 6f 20 43 6f 6c 44 65 6c | 69 6d 0d 65 6c 73 65 20 |o ColDel|im.else |
|00000fe0| 70 75 74 20 63 68 61 72 | 20 31 20 6f 66 20 43 6f |put char| 1 of Co|
|00000ff0| 6c 44 65 6c 69 6d 20 69 | 6e 74 6f 20 43 6f 6c 44 |lDelim i|nto ColD|
|00001000| 65 6c 69 6d 0d 0d 73 65 | 74 20 74 68 65 20 69 74 |elim..se|t the it|
|00001010| 65 6d 44 65 6c 69 6d 69 | 74 65 72 20 74 6f 20 52 |emDelimi|ter to R|
|00001020| 6f 77 44 65 6c 69 6d 0d | 69 66 20 52 6f 77 20 3c |owDelim.|if Row <|
|00001030| 3e 20 30 20 61 6e 64 20 | 43 6f 6c 20 3c 3e 20 30 |> 0 and |Col <> 0|
|00001040| 20 74 68 65 6e 20 2d 2d | 20 73 69 6e 67 6c 65 20 | then --| single |
|00001050| 65 6c 65 6d 65 6e 74 0d | 67 65 74 20 69 74 65 6d |element.|get item|
|00001060| 20 52 6f 77 20 6f 66 20 | 54 68 65 41 72 72 61 79 | Row of |TheArray|
|00001070| 0d 73 65 74 20 74 68 65 | 20 69 74 65 6d 44 65 6c |.set the| itemDel|
|00001080| 69 6d 69 74 65 72 20 74 | 6f 20 43 6f 6c 44 65 6c |imiter t|o ColDel|
|00001090| 69 6d 0d 70 75 74 20 54 | 68 65 44 61 74 61 20 69 |im.put T|heData i|
|000010a0| 6e 74 6f 20 69 74 65 6d | 20 43 6f 6c 20 6f 66 20 |nto item| Col of |
|000010b0| 69 74 0d 73 65 74 20 74 | 68 65 20 69 74 65 6d 44 |it.set t|he itemD|
|000010c0| 65 6c 69 6d 69 74 65 72 | 20 74 6f 20 52 6f 77 44 |elimiter| to RowD|
|000010d0| 65 6c 69 6d 0d 70 75 74 | 20 69 74 20 69 6e 74 6f |elim.put| it into|
|000010e0| 20 69 74 65 6d 20 52 6f | 77 20 6f 66 20 54 68 65 | item Ro|w of The|
|000010f0| 41 72 72 61 79 0d 65 6c | 73 65 20 69 66 20 43 6f |Array.el|se if Co|
|00001100| 6c 20 3d 20 30 20 61 6e | 64 20 52 6f 77 20 3c 3e |l = 0 an|d Row <>|
|00001110| 20 30 20 74 68 65 6e 20 | 2d 2d 20 77 68 6f 6c 65 | 0 then |-- whole|
|00001120| 20 72 6f 77 0d 70 75 74 | 20 54 68 65 44 61 74 61 | row.put| TheData|
|00001130| 20 69 6e 74 6f 20 69 74 | 65 6d 20 52 6f 77 20 6f | into it|em Row o|
|00001140| 66 20 54 68 65 41 72 72 | 61 79 0d 65 6c 73 65 20 |f TheArr|ay.else |
|00001150| 69 66 20 52 6f 77 20 3d | 20 30 20 61 6e 64 20 43 |if Row =| 0 and C|
|00001160| 6f 6c 20 3c 3e 20 30 20 | 74 68 65 6e 20 2d 2d 20 |ol <> 0 |then -- |
|00001170| 77 68 6f 6c 65 20 63 6f | 6c 75 6d 6e 0d 72 65 70 |whole co|lumn.rep|
|00001180| 65 61 74 20 77 69 74 68 | 20 69 20 3d 20 31 20 74 |eat with| i = 1 t|
|00001190| 6f 20 6e 75 6d 62 65 72 | 20 6f 66 20 69 74 65 6d |o number| of item|
|000011a0| 73 20 69 6e 20 54 68 65 | 41 72 72 61 79 0d 67 65 |s in The|Array.ge|
|000011b0| 74 20 69 74 65 6d 20 69 | 20 6f 66 20 54 68 65 41 |t item i| of TheA|
|000011c0| 72 72 61 79 0d 73 65 74 | 20 74 68 65 20 69 74 65 |rray.set| the ite|
|000011d0| 6d 44 65 6c 69 6d 69 74 | 65 72 20 74 6f 20 43 6f |mDelimit|er to Co|
|000011e0| 6c 44 65 6c 69 6d 0d 70 | 75 74 20 54 68 65 44 61 |lDelim.p|ut TheDa|
|000011f0| 74 61 20 69 6e 74 6f 20 | 69 74 65 6d 20 43 6f 6c |ta into |item Col|
|00001200| 20 6f 66 20 69 74 0d 73 | 65 74 20 74 68 65 20 69 | of it.s|et the i|
|00001210| 74 65 6d 44 65 6c 69 6d | 69 74 65 72 20 74 6f 20 |temDelim|iter to |
|00001220| 52 6f 77 44 65 6c 69 6d | 0d 70 75 74 20 69 74 20 |RowDelim|.put it |
|00001230| 69 6e 74 6f 20 69 74 65 | 6d 20 69 20 6f 66 20 54 |into ite|m i of T|
|00001240| 68 65 41 72 72 61 79 0d | 65 6e 64 20 72 65 70 65 |heArray.|end repe|
|00001250| 61 74 0d 65 6e 64 20 69 | 66 0d 0d 73 65 74 20 74 |at.end i|f..set t|
|00001260| 68 65 20 69 74 65 6d 44 | 65 6c 69 6d 69 74 65 72 |he itemD|elimiter|
|00001270| 20 74 6f 20 6f 6c 64 44 | 65 6c 69 6d 0d 72 65 74 | to oldD|elim.ret|
|00001280| 75 72 6e 20 54 68 65 41 | 72 72 61 79 0d 65 6e 64 |urn TheA|rray.end|
|00001290| 20 73 65 74 41 72 72 61 | 79 45 6c 65 6d 65 6e 74 | setArra|yElement|
|000012a0| 0d 0d 0d 66 75 6e 63 74 | 69 6f 6e 20 69 6e 73 65 |...funct|ion inse|
|000012b0| 72 74 41 72 72 61 79 45 | 6c 65 6d 65 6e 74 20 54 |rtArrayE|lement T|
|000012c0| 68 65 41 72 72 61 79 2c | 20 52 6f 77 2c 20 43 6f |heArray,| Row, Co|
|000012d0| 6c 2c 20 52 6f 77 44 65 | 6c 69 6d 2c 20 43 6f 6c |l, RowDe|lim, Col|
|000012e0| 44 65 6c 69 6d 0d 69 66 | 20 54 68 65 44 61 74 61 |Delim.if| TheData|
|000012f0| 20 3d 20 22 3f 22 20 74 | 68 65 6e 20 72 65 74 75 | = "?" t|hen retu|
|00001300| 72 6e 20 22 69 6e 73 65 | 72 74 41 72 72 61 79 45 |rn "inse|rtArrayE|
|00001310| 6c 65 6d 65 6e 74 28 54 | 68 65 41 72 72 61 79 2c |lement(T|heArray,|
|00001320| 5b 52 6f 77 5d 2c 5b 43 | 6f 6c 5d 2c 5b 52 6f 77 |[Row],[C|ol],[Row|
|00001330| 44 65 6c 69 6d 5d 2c 5b | 43 6f 6c 44 65 6c 69 6d |Delim],[|ColDelim|
|00001340| 5d 29 22 0d 69 66 20 54 | 68 65 44 61 74 61 20 3d |])".if T|heData =|
|00001350| 20 22 21 22 20 74 68 65 | 6e 20 72 65 74 75 72 6e | "!" the|n return|
|00001360| 20 22 69 6e 73 65 72 74 | 41 72 72 61 79 45 6c 65 | "insert|ArrayEle|
|00001370| 6d 65 6e 74 28 29 20 31 | 2e 30 20 a9 20 42 65 6e |ment() 1|.0 . Ben|
|00001380| 20 4c 61 77 73 6f 6e 20 | 31 39 39 36 2e 20 50 75 | Lawson |1996. Pu|
|00001390| 62 6c 69 63 20 44 6f 6d | 61 69 6e 2e 22 0d 69 66 |blic Dom|ain.".if|
|000013a0| 20 52 6f 77 20 69 73 20 | 6e 6f 74 20 61 6e 20 69 | Row is |not an i|
|000013b0| 6e 74 65 67 65 72 20 61 | 6e 64 20 52 6f 77 20 69 |nteger a|nd Row i|
|000013c0| 73 20 6e 6f 74 20 65 6d | 70 74 79 20 74 68 65 6e |s not em|pty then|
|000013d0| 20 72 65 74 75 72 6e 20 | 22 49 6e 76 61 6c 69 64 | return |"Invalid|
|000013e0| 20 72 6f 77 20 73 70 65 | 63 69 66 69 63 61 74 69 | row spe|cificati|
|000013f0| 6f 6e 22 0d 69 66 20 43 | 6f 6c 20 69 73 20 6e 6f |on".if C|ol is no|
|00001400| 74 20 61 6e 20 69 6e 74 | 65 67 65 72 20 61 6e 64 |t an int|eger and|
|00001410| 20 43 6f 6c 20 69 73 20 | 6e 6f 74 20 65 6d 70 74 | Col is |not empt|
|00001420| 79 20 74 68 65 6e 20 72 | 65 74 75 72 6e 20 22 49 |y then r|eturn "I|
|00001430| 6e 76 61 6c 69 64 20 63 | 6f 6c 75 6d 6e 20 73 70 |nvalid c|olumn sp|
|00001440| 65 63 69 66 69 63 61 74 | 69 6f 6e 22 0d 69 66 20 |ecificat|ion".if |
|00001450| 52 6f 77 20 3d 20 65 6d | 70 74 79 20 74 68 65 6e |Row = em|pty then|
|00001460| 20 70 75 74 20 30 20 69 | 6e 74 6f 20 52 6f 77 0d | put 0 i|nto Row.|
|00001470| 65 6c 73 65 20 69 66 20 | 52 6f 77 20 69 73 20 6e |else if |Row is n|
|00001480| 6f 74 20 61 6e 20 69 6e | 74 65 67 65 72 20 74 68 |ot an in|teger th|
|00001490| 65 6e 20 72 65 74 75 72 | 6e 20 22 49 6e 76 61 6c |en retur|n "Inval|
|000014a0| 69 64 20 72 6f 77 20 73 | 70 65 63 69 66 69 63 61 |id row s|pecifica|
|000014b0| 74 69 6f 6e 22 0d 69 66 | 20 43 6f 6c 20 3d 20 65 |tion".if| Col = e|
|000014c0| 6d 70 74 79 20 74 68 65 | 6e 20 70 75 74 20 30 20 |mpty the|n put 0 |
|000014d0| 69 6e 74 6f 20 43 6f 6c | 0d 65 6c 73 65 20 69 66 |into Col|.else if|
|000014e0| 20 43 6f 6c 20 69 73 20 | 6e 6f 74 20 61 6e 20 69 | Col is |not an i|
|000014f0| 6e 74 65 67 65 72 20 74 | 68 65 6e 20 72 65 74 75 |nteger t|hen retu|
|00001500| 72 6e 20 22 49 6e 76 61 | 6c 69 64 20 63 6f 6c 75 |rn "Inva|lid colu|
|00001510| 6d 6e 20 73 70 65 63 69 | 66 69 63 61 74 69 6f 6e |mn speci|fication|
|00001520| 22 0d 70 75 74 20 74 68 | 65 20 69 74 65 6d 44 65 |".put th|e itemDe|
|00001530| 6c 69 6d 69 74 65 72 20 | 69 6e 74 6f 20 6f 6c 64 |limiter |into old|
|00001540| 44 65 6c 69 6d 0d 70 75 | 74 20 76 61 6c 75 65 28 |Delim.pu|t value(|
|00001550| 52 6f 77 44 65 6c 69 6d | 29 20 69 6e 74 6f 20 72 |RowDelim|) into r|
|00001560| 6f 77 44 65 6c 69 6d 20 | 2d 2d 20 69 6e 20 63 61 |owDelim |-- in ca|
|00001570| 73 65 20 74 68 65 79 20 | 63 6f 6d 65 20 69 6e 20 |se they |come in |
|00001580| 61 73 20 61 6e 20 65 78 | 70 72 65 73 73 69 6f 6e |as an ex|pression|
|00001590| 0d 70 75 74 20 76 61 6c | 75 65 28 43 6f 6c 44 65 |.put val|ue(ColDe|
|000015a0| 6c 69 6d 29 20 69 6e 74 | 6f 20 43 6f 6c 44 65 6c |lim) int|o ColDel|
|000015b0| 69 6d 0d 69 66 20 52 6f | 77 44 65 6c 69 6d 20 3d |im.if Ro|wDelim =|
|000015c0| 20 65 6d 70 74 79 20 74 | 68 65 6e 20 70 75 74 20 | empty t|hen put |
|000015d0| 72 65 74 75 72 6e 20 69 | 6e 74 6f 20 52 6f 77 44 |return i|nto RowD|
|000015e0| 65 6c 69 6d 0d 65 6c 73 | 65 20 70 75 74 20 63 68 |elim.els|e put ch|
|000015f0| 61 72 20 31 20 6f 66 20 | 52 6f 77 44 65 6c 69 6d |ar 1 of |RowDelim|
|00001600| 20 69 6e 74 6f 20 52 6f | 77 44 65 6c 69 6d 0d 69 | into Ro|wDelim.i|
|00001610| 66 20 43 6f 6c 44 65 6c | 69 6d 20 3d 20 65 6d 70 |f ColDel|im = emp|
|00001620| 74 79 20 74 68 65 6e 20 | 70 75 74 20 63 6f 6d 6d |ty then |put comm|
|00001630| 61 20 69 6e 74 6f 20 43 | 6f 6c 44 65 6c 69 6d 0d |a into C|olDelim.|
|00001640| 65 6c 73 65 20 70 75 74 | 20 63 68 61 72 20 31 20 |else put| char 1 |
|00001650| 6f 66 20 43 6f 6c 44 65 | 6c 69 6d 20 69 6e 74 6f |of ColDe|lim into|
|00001660| 20 43 6f 6c 44 65 6c 69 | 6d 0d 0d 73 65 74 20 74 | ColDeli|m..set t|
|00001670| 68 65 20 69 74 65 6d 44 | 65 6c 69 6d 69 74 65 72 |he itemD|elimiter|
|00001680| 20 74 6f 20 52 6f 77 44 | 65 6c 69 6d 0d 69 66 20 | to RowD|elim.if |
|00001690| 43 6f 6c 20 3c 3e 20 65 | 6d 70 74 79 20 61 6e 64 |Col <> e|mpty and|
|000016a0| 20 52 6f 77 20 3c 3e 20 | 65 6d 70 74 79 20 74 68 | Row <> |empty th|
|000016b0| 65 6e 20 2d 2d 20 73 69 | 6e 67 6c 65 20 65 6c 65 |en -- si|ngle ele|
|000016c0| 6d 65 6e 74 20 28 64 61 | 6e 67 65 72 6f 75 73 21 |ment (da|ngerous!|
|000016d0| 29 0d 67 65 74 20 69 74 | 65 6d 20 52 6f 77 20 6f |).get it|em Row o|
|000016e0| 66 20 54 68 65 41 72 72 | 61 79 0d 73 65 74 20 74 |f TheArr|ay.set t|
|000016f0| 68 65 20 69 74 65 6d 44 | 65 6c 69 6d 69 74 65 72 |he itemD|elimiter|
|00001700| 20 74 6f 20 43 6f 6c 44 | 65 6c 69 6d 0d 70 75 74 | to ColD|elim.put|
|00001710| 20 43 6f 6c 44 65 6c 69 | 6d 20 62 65 66 6f 72 65 | ColDeli|m before|
|00001720| 20 69 74 65 6d 20 43 6f | 6c 20 6f 66 20 69 74 0d | item Co|l of it.|
|00001730| 73 65 74 20 74 68 65 20 | 69 74 65 6d 44 65 6c 69 |set the |itemDeli|
|00001740| 6d 69 74 65 72 20 74 6f | 20 52 6f 77 44 65 6c 69 |miter to| RowDeli|
|00001750| 6d 0d 70 75 74 20 69 74 | 20 69 6e 74 6f 20 69 74 |m.put it| into it|
|00001760| 65 6d 20 52 6f 77 20 6f | 66 20 54 68 65 41 72 72 |em Row o|f TheArr|
|00001770| 61 79 0d 65 6c 73 65 20 | 69 66 20 43 6f 6c 20 3d |ay.else |if Col =|
|00001780| 20 65 6d 70 74 79 20 74 | 68 65 6e 20 2d 2d 20 77 | empty t|hen -- w|
|00001790| 68 6f 6c 65 20 72 6f 77 | 0d 70 75 74 20 52 6f 77 |hole row|.put Row|
|000017a0| 44 65 6c 69 6d 20 62 65 | 66 6f 72 65 20 69 74 65 |Delim be|fore ite|
|000017b0| 6d 20 52 6f 77 20 6f 66 | 20 54 68 65 41 72 72 61 |m Row of| TheArra|
|000017c0| 79 0d 65 6c 73 65 20 69 | 66 20 52 6f 77 20 3d 20 |y.else i|f Row = |
|000017d0| 65 6d 70 74 79 20 74 68 | 65 6e 20 2d 2d 20 77 68 |empty th|en -- wh|
|000017e0| 6f 6c 65 20 63 6f 6c 75 | 6d 6e 0d 72 65 70 65 61 |ole colu|mn.repea|
|000017f0| 74 20 77 69 74 68 20 69 | 20 3d 20 31 20 74 6f 20 |t with i| = 1 to |
|00001800| 6e 75 6d 62 65 72 20 6f | 66 20 69 74 65 6d 73 20 |number o|f items |
|00001810| 69 6e 20 54 68 65 41 72 | 72 61 79 0d 67 65 74 20 |in TheAr|ray.get |
|00001820| 69 74 65 6d 20 69 20 6f | 66 20 54 68 65 41 72 72 |item i o|f TheArr|
|00001830| 61 79 0d 73 65 74 20 74 | 68 65 20 69 74 65 6d 44 |ay.set t|he itemD|
|00001840| 65 6c 69 6d 69 74 65 72 | 20 74 6f 20 43 6f 6c 44 |elimiter| to ColD|
|00001850| 65 6c 69 6d 0d 70 75 74 | 20 43 6f 6c 44 65 6c 69 |elim.put| ColDeli|
|00001860| 6d 20 62 65 66 6f 72 65 | 20 69 74 65 6d 20 43 6f |m before| item Co|
|00001870| 6c 20 6f 66 20 69 74 0d | 73 65 74 20 74 68 65 20 |l of it.|set the |
|00001880| 69 74 65 6d 44 65 6c 69 | 6d 69 74 65 72 20 74 6f |itemDeli|miter to|
|00001890| 20 52 6f 77 44 65 6c 69 | 6d 0d 70 75 74 20 69 74 | RowDeli|m.put it|
|000018a0| 20 69 6e 74 6f 20 69 74 | 65 6d 20 69 20 6f 66 20 | into it|em i of |
|000018b0| 54 68 65 41 72 72 61 79 | 0d 65 6e 64 20 72 65 70 |TheArray|.end rep|
|000018c0| 65 61 74 0d 65 6e 64 20 | 69 66 0d 0d 73 65 74 20 |eat.end |if..set |
|000018d0| 74 68 65 20 69 74 65 6d | 44 65 6c 69 6d 69 74 65 |the item|Delimite|
|000018e0| 72 20 74 6f 20 6f 6c 64 | 44 65 6c 69 6d 0d 72 65 |r to old|Delim.re|
|000018f0| 74 75 72 6e 20 54 68 65 | 41 72 72 61 79 0d 65 6e |turn The|Array.en|
|00001900| 64 20 69 6e 73 65 72 74 | 41 72 72 61 79 45 6c 65 |d insert|ArrayEle|
|00001910| 6d 65 6e 74 0d 0d 0d 66 | 75 6e 63 74 69 6f 6e 20 |ment...f|unction |
|00001920| 64 65 6c 65 74 65 41 72 | 72 61 79 45 6c 65 6d 65 |deleteAr|rayEleme|
|00001930| 6e 74 20 54 68 65 41 72 | 72 61 79 2c 20 52 6f 77 |nt TheAr|ray, Row|
|00001940| 2c 20 43 6f 6c 2c 20 52 | 6f 77 44 65 6c 69 6d 2c |, Col, R|owDelim,|
|00001950| 20 43 6f 6c 44 65 6c 69 | 6d 0d 69 66 20 54 68 65 | ColDeli|m.if The|
|00001960| 41 72 72 61 79 20 3d 20 | 22 3f 22 20 74 68 65 6e |Array = |"?" then|
|00001970| 20 72 65 74 75 72 6e 20 | 22 64 65 6c 65 74 65 41 | return |"deleteA|
|00001980| 72 72 61 79 45 6c 65 6d | 65 6e 74 28 54 68 65 41 |rrayElem|ent(TheA|
|00001990| 72 72 61 79 2c 5b 52 6f | 77 5d 2c 5b 43 6f 6c 5d |rray,[Ro|w],[Col]|
|000019a0| 2c 5b 52 6f 77 44 65 6c | 69 6d 5d 2c 5b 43 6f 6c |,[RowDel|im],[Col|
|000019b0| 44 65 6c 69 6d 5d 29 22 | 0d 69 66 20 54 68 65 41 |Delim])"|.if TheA|
|000019c0| 72 72 61 79 20 3d 20 22 | 21 22 20 74 68 65 6e 20 |rray = "|!" then |
|000019d0| 72 65 74 75 72 6e 20 22 | 64 65 6c 65 74 65 41 72 |return "|deleteAr|
|000019e0| 72 61 79 45 6c 65 6d 65 | 6e 74 28 29 20 31 2e 30 |rayEleme|nt() 1.0|
|000019f0| 20 a9 20 42 65 6e 20 4c | 61 77 73 6f 6e 20 31 39 | . Ben L|awson 19|
|00001a00| 39 36 2e 20 50 75 62 6c | 69 63 20 44 6f 6d 61 69 |96. Publ|ic Domai|
|00001a10| 6e 2e 22 0d 69 66 20 52 | 6f 77 20 3d 20 65 6d 70 |n.".if R|ow = emp|
|00001a20| 74 79 20 74 68 65 6e 20 | 70 75 74 20 30 20 69 6e |ty then |put 0 in|
|00001a30| 74 6f 20 52 6f 77 0d 65 | 6c 73 65 20 69 66 20 52 |to Row.e|lse if R|
|00001a40| 6f 77 20 69 73 20 6e 6f | 74 20 61 6e 20 69 6e 74 |ow is no|t an int|
|00001a50| 65 67 65 72 20 74 68 65 | 6e 20 72 65 74 75 72 6e |eger the|n return|
|00001a60| 20 22 49 6e 76 61 6c 69 | 64 20 72 6f 77 20 73 70 | "Invali|d row sp|
|00001a70| 65 63 69 66 69 63 61 74 | 69 6f 6e 22 0d 69 66 20 |ecificat|ion".if |
|00001a80| 43 6f 6c 20 3d 20 65 6d | 70 74 79 20 74 68 65 6e |Col = em|pty then|
|00001a90| 20 70 75 74 20 30 20 69 | 6e 74 6f 20 43 6f 6c 0d | put 0 i|nto Col.|
|00001aa0| 65 6c 73 65 20 69 66 20 | 43 6f 6c 20 69 73 20 6e |else if |Col is n|
|00001ab0| 6f 74 20 61 6e 20 69 6e | 74 65 67 65 72 20 74 68 |ot an in|teger th|
|00001ac0| 65 6e 20 72 65 74 75 72 | 6e 20 22 49 6e 76 61 6c |en retur|n "Inval|
|00001ad0| 69 64 20 63 6f 6c 75 6d | 6e 20 73 70 65 63 69 66 |id colum|n specif|
|00001ae0| 69 63 61 74 69 6f 6e 22 | 0d 70 75 74 20 74 68 65 |ication"|.put the|
|00001af0| 20 69 74 65 6d 44 65 6c | 69 6d 69 74 65 72 20 69 | itemDel|imiter i|
|00001b00| 6e 74 6f 20 6f 6c 64 44 | 65 6c 69 6d 0d 70 75 74 |nto oldD|elim.put|
|00001b10| 20 76 61 6c 75 65 28 52 | 6f 77 44 65 6c 69 6d 29 | value(R|owDelim)|
|00001b20| 20 69 6e 74 6f 20 72 6f | 77 44 65 6c 69 6d 20 2d | into ro|wDelim -|
|00001b30| 2d 20 69 6e 20 63 61 73 | 65 20 74 68 65 79 20 63 |- in cas|e they c|
|00001b40| 6f 6d 65 20 69 6e 20 61 | 73 20 61 6e 20 65 78 70 |ome in a|s an exp|
|00001b50| 72 65 73 73 69 6f 6e 0d | 70 75 74 20 76 61 6c 75 |ression.|put valu|
|00001b60| 65 28 43 6f 6c 44 65 6c | 69 6d 29 20 69 6e 74 6f |e(ColDel|im) into|
|00001b70| 20 43 6f 6c 44 65 6c 69 | 6d 0d 69 66 20 52 6f 77 | ColDeli|m.if Row|
|00001b80| 44 65 6c 69 6d 20 3d 20 | 65 6d 70 74 79 20 74 68 |Delim = |empty th|
|00001b90| 65 6e 20 70 75 74 20 72 | 65 74 75 72 6e 20 69 6e |en put r|eturn in|
|00001ba0| 74 6f 20 52 6f 77 44 65 | 6c 69 6d 0d 65 6c 73 65 |to RowDe|lim.else|
|00001bb0| 20 70 75 74 20 63 68 61 | 72 20 31 20 6f 66 20 52 | put cha|r 1 of R|
|00001bc0| 6f 77 44 65 6c 69 6d 20 | 69 6e 74 6f 20 52 6f 77 |owDelim |into Row|
|00001bd0| 44 65 6c 69 6d 0d 69 66 | 20 43 6f 6c 44 65 6c 69 |Delim.if| ColDeli|
|00001be0| 6d 20 3d 20 65 6d 70 74 | 79 20 74 68 65 6e 20 70 |m = empt|y then p|
|00001bf0| 75 74 20 63 6f 6d 6d 61 | 20 69 6e 74 6f 20 43 6f |ut comma| into Co|
|00001c00| 6c 44 65 6c 69 6d 0d 65 | 6c 73 65 20 70 75 74 20 |lDelim.e|lse put |
|00001c10| 63 68 61 72 20 31 20 6f | 66 20 43 6f 6c 44 65 6c |char 1 o|f ColDel|
|00001c20| 69 6d 20 69 6e 74 6f 20 | 43 6f 6c 44 65 6c 69 6d |im into |ColDelim|
|00001c30| 0d 0d 73 65 74 20 74 68 | 65 20 69 74 65 6d 44 65 |..set th|e itemDe|
|00001c40| 6c 69 6d 69 74 65 72 20 | 74 6f 20 52 6f 77 44 65 |limiter |to RowDe|
|00001c50| 6c 69 6d 0d 69 66 20 43 | 6f 6c 20 3d 20 65 6d 70 |lim.if C|ol = emp|
|00001c60| 74 79 20 74 68 65 6e 20 | 2d 2d 20 77 68 6f 6c 65 |ty then |-- whole|
|00001c70| 20 72 6f 77 0d 64 65 6c | 65 74 65 20 69 74 65 6d | row.del|ete item|
|00001c80| 20 52 6f 77 20 6f 66 20 | 54 68 65 41 72 72 61 79 | Row of |TheArray|
|00001c90| 0d 65 6c 73 65 20 69 66 | 20 52 6f 77 20 3d 20 65 |.else if| Row = e|
|00001ca0| 6d 70 74 79 20 74 68 65 | 6e 20 2d 2d 20 77 68 6f |mpty the|n -- who|
|00001cb0| 6c 65 20 63 6f 6c 75 6d | 6e 0d 72 65 70 65 61 74 |le colum|n.repeat|
|00001cc0| 20 77 69 74 68 20 69 20 | 3d 20 31 20 74 6f 20 6e | with i |= 1 to n|
|00001cd0| 75 6d 62 65 72 20 6f 66 | 20 69 74 65 6d 73 20 69 |umber of| items i|
|00001ce0| 6e 20 54 68 65 41 72 72 | 61 79 0d 67 65 74 20 69 |n TheArr|ay.get i|
|00001cf0| 74 65 6d 20 69 20 6f 66 | 20 54 68 65 41 72 72 61 |tem i of| TheArra|
|00001d00| 79 0d 73 65 74 20 74 68 | 65 20 69 74 65 6d 44 65 |y.set th|e itemDe|
|00001d10| 6c 69 6d 69 74 65 72 20 | 74 6f 20 43 6f 6c 44 65 |limiter |to ColDe|
|00001d20| 6c 69 6d 0d 64 65 6c 65 | 74 65 20 69 74 65 6d 20 |lim.dele|te item |
|00001d30| 43 6f 6c 20 6f 66 20 69 | 74 0d 73 65 74 20 74 68 |Col of i|t.set th|
|00001d40| 65 20 69 74 65 6d 44 65 | 6c 69 6d 69 74 65 72 20 |e itemDe|limiter |
|00001d50| 74 6f 20 52 6f 77 44 65 | 6c 69 6d 0d 70 75 74 20 |to RowDe|lim.put |
|00001d60| 69 74 20 69 6e 74 6f 20 | 69 74 65 6d 20 69 20 6f |it into |item i o|
|00001d70| 66 20 54 68 65 41 72 72 | 61 79 0d 65 6e 64 20 72 |f TheArr|ay.end r|
|00001d80| 65 70 65 61 74 0d 65 6c | 73 65 20 2d 2d 20 73 69 |epeat.el|se -- si|
|00001d90| 6e 67 6c 65 20 65 6c 65 | 6d 65 6e 74 20 28 6e 6f |ngle ele|ment (no|
|00001da0| 74 20 6f 66 74 65 6e 20 | 61 20 77 69 73 65 20 74 |t often |a wise t|
|00001db0| 68 69 6e 67 20 74 6f 20 | 64 6f c9 29 0d 67 65 74 |hing to |do.).get|
|00001dc0| 20 69 74 65 6d 20 52 6f | 77 20 6f 66 20 54 68 65 | item Ro|w of The|
|00001dd0| 41 72 72 61 79 0d 73 65 | 74 20 74 68 65 20 69 74 |Array.se|t the it|
|00001de0| 65 6d 44 65 6c 69 6d 69 | 74 65 72 20 74 6f 20 43 |emDelimi|ter to C|
|00001df0| 6f 6c 44 65 6c 69 6d 0d | 64 65 6c 65 74 65 20 69 |olDelim.|delete i|
|00001e00| 74 65 6d 20 43 6f 6c 20 | 6f 66 20 69 74 0d 73 65 |tem Col |of it.se|
|00001e10| 74 20 74 68 65 20 69 74 | 65 6d 44 65 6c 69 6d 69 |t the it|emDelimi|
|00001e20| 74 65 72 20 74 6f 20 52 | 6f 77 44 65 6c 69 6d 0d |ter to R|owDelim.|
|00001e30| 70 75 74 20 69 74 20 69 | 6e 74 6f 20 69 74 65 6d |put it i|nto item|
|00001e40| 20 52 6f 77 20 6f 66 20 | 54 68 65 41 72 72 61 79 | Row of |TheArray|
|00001e50| 0d 65 6e 64 20 69 66 0d | 0d 73 65 74 20 74 68 65 |.end if.|.set the|
|00001e60| 20 69 74 65 6d 44 65 6c | 69 6d 69 74 65 72 20 74 | itemDel|imiter t|
|00001e70| 6f 20 6f 6c 64 44 65 6c | 69 6d 0d 72 65 74 75 72 |o oldDel|im.retur|
|00001e80| 6e 20 54 68 65 41 72 72 | 61 79 0d 65 6e 64 20 64 |n TheArr|ay.end d|
|00001e90| 65 6c 65 74 65 41 72 72 | 61 79 45 6c 65 6d 65 6e |eleteArr|ayElemen|
|00001ea0| 74 0d 0d 0d 66 75 6e 63 | 74 69 6f 6e 20 63 6f 6e |t...func|tion con|
|00001eb0| 76 65 72 74 41 72 72 61 | 79 20 54 68 65 41 72 72 |vertArra|y TheArr|
|00001ec0| 61 79 2c 20 52 6f 77 44 | 65 6c 69 6d 4e 65 77 2c |ay, RowD|elimNew,|
|00001ed0| 20 43 6f 6c 44 65 6c 69 | 6d 4e 65 77 2c 20 52 6f | ColDeli|mNew, Ro|
|00001ee0| 77 44 65 6c 69 6d 4f 6c | 64 2c 20 43 6f 6c 44 65 |wDelimOl|d, ColDe|
|00001ef0| 6c 69 6d 4f 6c 64 0d 69 | 66 20 54 68 65 41 72 72 |limOld.i|f TheArr|
|00001f00| 61 79 20 3d 20 22 3f 22 | 20 74 68 65 6e 20 72 65 |ay = "?"| then re|
|00001f10| 74 75 72 6e 20 22 63 6f | 6e 76 65 72 74 41 72 72 |turn "co|nvertArr|
|00001f20| 61 79 28 54 68 65 41 72 | 72 61 79 2c 52 6f 77 44 |ay(TheAr|ray,RowD|
|00001f30| 65 6c 69 6d 4e 65 77 2c | 43 6f 6c 44 65 6c 69 6d |elimNew,|ColDelim|
|00001f40| 4e 65 77 2c 5b 52 6f 77 | 44 65 6c 69 6d 4f 6c 64 |New,[Row|DelimOld|
|00001f50| 5d 2c 5b 43 6f 6c 44 65 | 6c 69 6d 4f 6c 64 5d 29 |],[ColDe|limOld])|
|00001f60| 22 0d 69 66 20 54 68 65 | 41 72 72 61 79 20 3d 20 |".if The|Array = |
|00001f70| 22 21 22 20 74 68 65 6e | 20 72 65 74 75 72 6e 20 |"!" then| return |
|00001f80| 22 63 6f 6e 76 65 72 74 | 41 72 72 61 79 28 29 20 |"convert|Array() |
|00001f90| 31 2e 30 20 a9 20 42 65 | 6e 20 4c 61 77 73 6f 6e |1.0 . Be|n Lawson|
|00001fa0| 20 31 39 39 36 2e 20 46 | 72 65 65 20 66 6f 72 20 | 1996. F|ree for |
|00001fb0| 70 65 72 73 6f 6e 61 6c | 20 75 73 65 2e 22 0d 70 |personal| use.".p|
|00001fc0| 75 74 20 74 68 65 20 69 | 74 65 6d 44 65 6c 69 6d |ut the i|temDelim|
|00001fd0| 69 74 65 72 20 69 6e 74 | 6f 20 6f 6c 64 44 65 6c |iter int|o oldDel|
|00001fe0| 69 6d 0d 69 66 20 52 6f | 77 44 65 6c 69 6d 4f 6c |im.if Ro|wDelimOl|
|00001ff0| 64 20 3d 20 65 6d 70 74 | 79 20 74 68 65 6e 20 70 |d = empt|y then p|
|00002000| 75 74 20 72 65 74 75 72 | 6e 20 69 6e 74 6f 20 52 |ut retur|n into R|
|00002010| 6f 77 44 65 6c 69 6d 4f | 6c 64 0d 70 75 74 20 63 |owDelimO|ld.put c|
|00002020| 68 61 72 20 31 20 6f 66 | 20 76 61 6c 75 65 28 52 |har 1 of| value(R|
|00002030| 6f 77 44 65 6c 69 6d 4f | 6c 64 29 20 69 6e 74 6f |owDelimO|ld) into|
|00002040| 20 52 6f 77 44 65 6c 69 | 6d 4f 6c 64 0d 69 66 20 | RowDeli|mOld.if |
|00002050| 43 6f 6c 44 65 6c 69 6d | 4f 6c 64 20 3d 20 65 6d |ColDelim|Old = em|
|00002060| 70 74 79 20 74 68 65 6e | 20 70 75 74 20 63 6f 6d |pty then| put com|
|00002070| 6d 61 20 69 6e 74 6f 20 | 43 6f 6c 44 65 6c 69 6d |ma into |ColDelim|
|00002080| 4f 6c 64 0d 70 75 74 20 | 63 68 61 72 20 31 20 6f |Old.put |char 1 o|
|00002090| 66 20 76 61 6c 75 65 28 | 43 6f 6c 44 65 6c 69 6d |f value(|ColDelim|
|000020a0| 4f 6c 64 29 20 69 6e 74 | 6f 20 43 6f 6c 44 65 6c |Old) int|o ColDel|
|000020b0| 69 6d 4f 6c 64 0d 69 66 | 20 52 6f 77 44 65 6c 69 |imOld.if| RowDeli|
|000020c0| 6d 4e 65 77 20 3d 20 65 | 6d 70 74 79 20 74 68 65 |mNew = e|mpty the|
|000020d0| 6e 20 70 75 74 20 72 65 | 74 75 72 6e 20 69 6e 74 |n put re|turn int|
|000020e0| 6f 20 52 6f 77 44 65 6c | 69 6d 4e 65 77 0d 65 6c |o RowDel|imNew.el|
|000020f0| 73 65 20 70 75 74 20 63 | 68 61 72 20 31 20 6f 66 |se put c|har 1 of|
|00002100| 20 76 61 6c 75 65 28 52 | 6f 77 44 65 6c 69 6d 4e | value(R|owDelimN|
|00002110| 65 77 29 20 69 6e 74 6f | 20 52 6f 77 44 65 6c 69 |ew) into| RowDeli|
|00002120| 6d 4e 65 77 0d 69 66 20 | 43 6f 6c 44 65 6c 69 6d |mNew.if |ColDelim|
|00002130| 4e 65 77 20 3d 20 65 6d | 70 74 79 20 74 68 65 6e |New = em|pty then|
|00002140| 20 70 75 74 20 63 6f 6d | 6d 61 20 69 6e 74 6f 20 | put com|ma into |
|00002150| 43 6f 6c 44 65 6c 69 6d | 4e 65 77 0d 65 6c 73 65 |ColDelim|New.else|
|00002160| 20 70 75 74 20 63 68 61 | 72 20 31 20 6f 66 20 76 | put cha|r 1 of v|
|00002170| 61 6c 75 65 28 43 6f 6c | 44 65 6c 69 6d 4e 65 77 |alue(Col|DelimNew|
|00002180| 29 20 69 6e 74 6f 20 43 | 6f 6c 44 65 6c 69 6d 4e |) into C|olDelimN|
|00002190| 65 77 0d 0d 70 75 74 20 | 65 6d 70 74 79 20 69 6e |ew..put |empty in|
|000021a0| 74 6f 20 72 6f 77 44 65 | 6c 69 6d 69 74 65 72 4c |to rowDe|limiterL|
|000021b0| 69 73 74 0d 70 75 74 20 | 30 20 69 6e 74 6f 20 74 |ist.put |0 into t|
|000021c0| 65 6d 70 0d 67 65 74 20 | 6f 66 66 73 65 74 28 52 |emp.get |offset(R|
|000021d0| 6f 77 44 65 6c 69 6d 4f | 6c 64 2c 20 54 68 65 41 |owDelimO|ld, TheA|
|000021e0| 72 72 61 79 29 0d 72 65 | 70 65 61 74 20 75 6e 74 |rray).re|peat unt|
|000021f0| 69 6c 20 69 74 20 3d 20 | 30 20 2d 2d 20 66 69 6e |il it = |0 -- fin|
|00002200| 64 20 61 6c 6c 20 72 6f | 77 20 64 65 6c 69 6d 69 |d all ro|w delimi|
|00002210| 74 65 72 73 2c 20 73 74 | 6f 72 65 20 74 68 65 6d |ters, st|ore them|
|00002220| 20 69 6e 20 61 20 76 61 | 72 69 61 62 6c 65 0d 67 | in a va|riable.g|
|00002230| 65 74 20 6f 66 66 73 65 | 74 28 52 6f 77 44 65 6c |et offse|t(RowDel|
|00002240| 69 6d 4f 6c 64 2c 20 63 | 68 61 72 20 28 74 65 6d |imOld, c|har (tem|
|00002250| 70 2b 31 29 20 74 6f 20 | 28 6e 75 6d 62 65 72 20 |p+1) to |(number |
|00002260| 6f 66 20 63 68 61 72 73 | 20 69 6e 20 54 68 65 41 |of chars| in TheA|
|00002270| 72 72 61 79 29 20 6f 66 | 20 54 68 65 41 72 72 61 |rray) of| TheArra|
|00002280| 79 29 0d 70 75 74 20 74 | 65 6d 70 20 2b 20 69 74 |y).put t|emp + it|
|00002290| 20 26 20 63 6f 6d 6d 61 | 20 61 66 74 65 72 20 72 | & comma| after r|
|000022a0| 6f 77 44 65 6c 69 6d 69 | 74 65 72 4c 69 73 74 0d |owDelimi|terList.|
|000022b0| 70 75 74 20 74 65 6d 70 | 20 2b 20 69 74 20 69 6e |put temp| + it in|
|000022c0| 74 6f 20 74 65 6d 70 0d | 65 6e 64 20 72 65 70 65 |to temp.|end repe|
|000022d0| 61 74 0d 0d 70 75 74 20 | 65 6d 70 74 79 20 69 6e |at..put |empty in|
|000022e0| 74 6f 20 63 6f 6c 44 65 | 6c 69 6d 69 74 65 72 4c |to colDe|limiterL|
|000022f0| 69 73 74 0d 70 75 74 20 | 30 20 69 6e 74 6f 20 74 |ist.put |0 into t|
|00002300| 65 6d 70 0d 67 65 74 20 | 6f 66 66 73 65 74 28 43 |emp.get |offset(C|
|00002310| 6f 6c 44 65 6c 69 6d 4f | 6c 64 2c 20 54 68 65 41 |olDelimO|ld, TheA|
|00002320| 72 72 61 79 29 0d 72 65 | 70 65 61 74 20 75 6e 74 |rray).re|peat unt|
|00002330| 69 6c 20 69 74 20 3d 20 | 30 20 2d 2d 20 66 69 6e |il it = |0 -- fin|
|00002340| 64 20 61 6c 6c 20 63 6f | 6c 75 6d 6e 20 64 65 6c |d all co|lumn del|
|00002350| 69 6d 69 74 65 72 73 2c | 20 73 74 6f 72 65 20 74 |imiters,| store t|
|00002360| 68 65 6d 20 69 6e 20 61 | 20 76 61 72 69 61 62 6c |hem in a| variabl|
|00002370| 65 0d 67 65 74 20 6f 66 | 66 73 65 74 28 43 6f 6c |e.get of|fset(Col|
|00002380| 44 65 6c 69 6d 4f 6c 64 | 2c 20 63 68 61 72 20 28 |DelimOld|, char (|
|00002390| 74 65 6d 70 2b 31 29 20 | 74 6f 20 28 6e 75 6d 62 |temp+1) |to (numb|
|000023a0| 65 72 20 6f 66 20 63 68 | 61 72 73 20 69 6e 20 54 |er of ch|ars in T|
|000023b0| 68 65 41 72 72 61 79 29 | 20 6f 66 20 54 68 65 41 |heArray)| of TheA|
|000023c0| 72 72 61 79 29 0d 70 75 | 74 20 74 65 6d 70 20 2b |rray).pu|t temp +|
|000023d0| 20 69 74 20 26 20 63 6f | 6d 6d 61 20 61 66 74 65 | it & co|mma afte|
|000023e0| 72 20 63 6f 6c 44 65 6c | 69 6d 69 74 65 72 4c 69 |r colDel|imiterLi|
|000023f0| 73 74 0d 70 75 74 20 74 | 65 6d 70 20 2b 20 69 74 |st.put t|emp + it|
|00002400| 20 69 6e 74 6f 20 74 65 | 6d 70 0d 65 6e 64 20 72 | into te|mp.end r|
|00002410| 65 70 65 61 74 0d 0d 2d | 2d 20 72 65 70 6c 61 63 |epeat..-|- replac|
|00002420| 65 20 61 6c 6c 20 74 68 | 65 20 6f 6c 64 20 64 65 |e all th|e old de|
|00002430| 6c 69 6d 69 74 65 72 73 | 0d 73 65 74 20 74 68 65 |limiters|.set the|
|00002440| 20 69 74 65 6d 44 65 6c | 69 6d 69 74 65 72 20 74 | itemDel|imiter t|
|00002450| 6f 20 63 6f 6d 6d 61 0d | 72 65 70 65 61 74 20 77 |o comma.|repeat w|
|00002460| 69 74 68 20 69 20 3d 20 | 31 20 74 6f 20 6e 75 6d |ith i = |1 to num|
|00002470| 62 65 72 20 6f 66 20 69 | 74 65 6d 73 20 69 6e 20 |ber of i|tems in |
|00002480| 72 6f 77 44 65 6c 69 6d | 69 74 65 72 4c 69 73 74 |rowDelim|iterList|
|00002490| 0d 70 75 74 20 52 6f 77 | 44 65 6c 69 6d 4e 65 77 |.put Row|DelimNew|
|000024a0| 20 69 6e 74 6f 20 63 68 | 61 72 20 28 69 74 65 6d | into ch|ar (item|
|000024b0| 20 69 20 6f 66 20 72 6f | 77 44 65 6c 69 6d 69 74 | i of ro|wDelimit|
|000024c0| 65 72 4c 69 73 74 29 20 | 6f 66 20 54 68 65 41 72 |erList) |of TheAr|
|000024d0| 72 61 79 0d 65 6e 64 20 | 72 65 70 65 61 74 0d 72 |ray.end |repeat.r|
|000024e0| 65 70 65 61 74 20 77 69 | 74 68 20 69 20 3d 20 31 |epeat wi|th i = 1|
|000024f0| 20 74 6f 20 6e 75 6d 62 | 65 72 20 6f 66 20 69 74 | to numb|er of it|
|00002500| 65 6d 73 20 69 6e 20 63 | 6f 6c 44 65 6c 69 6d 69 |ems in c|olDelimi|
|00002510| 74 65 72 4c 69 73 74 0d | 70 75 74 20 43 6f 6c 44 |terList.|put ColD|
|00002520| 65 6c 69 6d 4e 65 77 20 | 69 6e 74 6f 20 63 68 61 |elimNew |into cha|
|00002530| 72 20 28 69 74 65 6d 20 | 69 20 6f 66 20 63 6f 6c |r (item |i of col|
|00002540| 44 65 6c 69 6d 69 74 65 | 72 4c 69 73 74 29 20 6f |Delimite|rList) o|
|00002550| 66 20 54 68 65 41 72 72 | 61 79 0d 65 6e 64 20 72 |f TheArr|ay.end r|
|00002560| 65 70 65 61 74 0d 0d 73 | 65 74 20 74 68 65 20 69 |epeat..s|et the i|
|00002570| 74 65 6d 44 65 6c 69 6d | 69 74 65 72 20 74 6f 20 |temDelim|iter to |
|00002580| 6f 6c 64 44 65 6c 69 6d | 0d 72 65 74 75 72 6e 20 |oldDelim|.return |
|00002590| 54 68 65 41 72 72 61 79 | 0d 65 6e 64 20 63 6f 6e |TheArray|.end con|
|000025a0| 76 65 72 74 41 72 72 61 | 79 00 00 00 00 00 00 00 |vertArra|y.......|
|000025b0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000025c0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000025d0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000025e0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000025f0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00002600| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00002610| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00002620| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00002630| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00002640| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00002650| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00002660| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00002670| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00002680| 00 00 02 00 4d 41 53 54 | ff ff ff ff 00 00 00 00 |....MAST|........|
|00002690| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000026a0| 00 01 40 7d 00 01 44 59 | 00 01 84 e9 00 01 ac de |..@}..DY|........|
|000026b0| 00 03 8e a6 00 03 96 bb | 00 03 7b c4 00 00 00 00 |........|..{.....|
|000026c0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000026d0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000026e0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000026f0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00002700| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00002710| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00002720| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00002730| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00002740| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00002750| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00002760| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00002770| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00002780| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00002790| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000027a0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000027b0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000027c0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000027d0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000027e0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000027f0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00002800| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00002810| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00002820| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00002830| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00002840| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00002850| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00002860| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00002870| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00002880| 00 00 00 80 4c 49 53 54 | 00 00 08 7d 00 00 00 00 |....LIST|...}....|
|00002890| 00 00 00 01 00 00 08 00 | 00 00 00 01 00 84 00 02 |........|........|
|000028a0| 00 20 00 03 20 00 01 2c | 00 00 00 01 00 00 00 00 |. .. ..,|........|
|000028b0| 00 00 09 59 00 01 00 00 | 00 00 00 00 00 00 00 00 |...Y....|........|
|000028c0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000028d0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000028e0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000028f0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00002900| 00 00 08 00 50 41 47 45 | 00 00 09 59 00 00 00 00 |....PAGE|...Y....|
|00002910| 00 00 08 7d c0 00 01 7b | 00 00 0b de 60 7d 10 ae |...}...{|....`}..|
|00002920| 8e fe b9 7d 5f fb 1f 9d | 77 ff 6f b9 ff ff 9f ff |...}_...|w.o.....|
|00002930| d8 af dd fb ff e7 af 5b | fb e9 6b fd 7f ef ad ab |.......[|..k.....|
|00002940| af 7f fd 7e ff 6f ff ff | df ef f6 fb da 7f de f7 |...~.o..|........|
|00002950| b7 28 6f db ff b3 ef 4d | 3b ff df f9 f7 e4 df ff |.(o....M|;.......|
|00002960| ff ff bf df ef e7 e7 ff | f1 fb b7 0f ff 7d cf 3e |........|.....}.>|
|00002970| d9 ff 89 dd ff 5d a7 bf | 9e ff fe e6 be f4 ff f9 |.....]..|........|
|00002980| 67 ce af 77 d7 7a fe 23 | 2b fc 7d f8 b6 fb 74 bb |g..w.z.#|+.}...t.|
|00002990| fd 6b ff 7b 5f bd b3 73 | fb f7 37 5c 00 00 00 00 |.k.{_..s|..7\....|
|000029a0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000029b0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000029c0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000029d0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000029e0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000029f0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00002a00| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00002a10| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00002a20| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00002a30| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00002a40| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00002a50| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00002a60| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00002a70| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00002a80| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00002a90| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00002aa0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00002ab0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00002ac0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00002ad0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00002ae0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00002af0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00002b00| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00002b10| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00002b20| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00002b30| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00002b40| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00002b50| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00002b60| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00002b70| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00002b80| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00002b90| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00002ba0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00002bb0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00002bc0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00002bd0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00002be0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00002bf0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00002c00| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00002c10| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00002c20| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00002c30| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00002c40| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00002c50| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00002c60| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00002c70| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00002c80| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00002c90| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00002ca0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00002cb0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00002cc0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00002cd0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00002ce0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00002cf0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00002d00| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00002d10| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00002d20| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00002d30| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00002d40| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00002d50| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00002d60| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00002d70| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00002d80| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00002d90| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00002da0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00002db0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00002dc0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00002dd0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00002de0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00002df0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00002e00| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00002e10| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00002e20| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00002e30| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00002e40| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00002e50| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00002e60| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00002e70| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00002e80| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00002e90| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00002ea0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00002eb0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00002ec0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00002ed0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00002ee0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00002ef0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00002f00| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00002f10| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00002f20| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00002f30| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00002f40| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00002f50| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00002f60| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00002f70| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00002f80| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00002f90| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00002fa0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00002fb0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00002fc0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00002fd0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00002fe0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00002ff0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00003000| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00003010| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00003020| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00003030| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00003040| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00003050| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00003060| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00003070| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00003080| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00003090| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000030a0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000030b0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000030c0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000030d0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000030e0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000030f0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00003100| 00 00 05 00 42 4b 47 44 | 00 00 0a e9 00 00 00 00 |....BKGD|........|
|00003110| 00 00 00 00 00 00 00 00 | 00 00 00 01 00 00 0a e9 |........|........|
|00003120| 00 00 0a e9 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00003130| 00 00 00 54 68 65 73 65 | 20 73 63 72 69 70 74 73 |...These| scripts|
|00003140| 20 62 65 6c 6f 77 20 61 | 72 65 20 73 70 65 63 69 | below a|re speci|
|00003150| 66 69 63 20 74 6f 20 74 | 68 69 73 20 73 74 61 63 |fic to t|his stac|
|00003160| 6b 2c 20 61 6e 64 20 61 | 72 65 20 6e 6f 74 20 72 |k, and a|re not r|
|00003170| 65 61 6c 6c 79 20 72 65 | 6c 65 76 61 6e 74 20 74 |eally re|levant t|
|00003180| 6f 0d 0d 0d 6f 6e 20 62 | 75 69 6c 64 41 72 72 61 |o...on b|uildArra|
|00003190| 79 20 2d 2d 20 63 72 65 | 61 74 65 20 73 6f 6d 65 |y -- cre|ate some|
|000031a0| 20 73 61 6d 70 6c 65 20 | 64 61 74 61 0d 67 6c 6f | sample |data.glo|
|000031b0| 62 61 6c 20 67 52 6f 77 | 44 65 6c 69 6d 69 74 65 |bal gRow|Delimite|
|000031c0| 72 2c 20 67 43 6f 6c 44 | 65 6c 69 6d 69 74 65 72 |r, gColD|elimiter|
|000031d0| 0d 73 65 74 20 63 75 72 | 73 6f 72 20 74 6f 20 62 |.set cur|sor to b|
|000031e0| 75 73 79 0d 72 65 70 65 | 61 74 20 77 69 74 68 20 |usy.repe|at with |
|000031f0| 69 20 3d 20 31 20 74 6f | 20 39 0d 72 65 70 65 61 |i = 1 to| 9.repea|
|00003200| 74 20 77 69 74 68 20 6a | 20 3d 20 31 20 74 6f 20 |t with j| = 1 to |
|00003210| 39 0d 70 75 74 20 69 20 | 26 20 6a 20 26 20 67 43 |9.put i |& j & gC|
|00003220| 6f 6c 44 65 6c 69 6d 69 | 74 65 72 20 61 66 74 65 |olDelimi|ter afte|
|00003230| 72 20 69 74 0d 65 6e 64 | 20 72 65 70 65 61 74 0d |r it.end| repeat.|
|00003240| 64 65 6c 65 74 65 20 6c | 61 73 74 20 63 68 61 72 |delete l|ast char|
|00003250| 20 6f 66 20 69 74 0d 70 | 75 74 20 67 52 6f 77 44 | of it.p|ut gRowD|
|00003260| 65 6c 69 6d 69 74 65 72 | 20 61 66 74 65 72 20 69 |elimiter| after i|
|00003270| 74 0d 65 6e 64 20 72 65 | 70 65 61 74 0d 70 75 74 |t.end re|peat.put|
|00003280| 20 22 66 69 72 73 74 22 | 20 26 20 67 43 6f 6c 44 | "first"| & gColD|
|00003290| 65 6c 69 6d 69 74 65 72 | 20 26 20 22 73 65 63 6f |elimiter| & "seco|
|000032a0| 6e 64 22 20 26 20 67 43 | 6f 6c 44 65 6c 69 6d 69 |nd" & gC|olDelimi|
|000032b0| 74 65 72 20 26 20 22 74 | 68 69 72 64 22 20 61 66 |ter & "t|hird" af|
|000032c0| 74 65 72 20 69 74 0d 70 | 75 74 20 67 43 6f 6c 44 |ter it.p|ut gColD|
|000032d0| 65 6c 69 6d 69 74 65 72 | 20 26 20 22 66 6f 75 72 |elimiter| & "four|
|000032e0| 74 68 22 20 26 20 67 43 | 6f 6c 44 65 6c 69 6d 69 |th" & gC|olDelimi|
|000032f0| 74 65 72 20 26 20 22 66 | 69 66 74 68 22 20 26 20 |ter & "f|ifth" & |
|00003300| 67 43 6f 6c 44 65 6c 69 | 6d 69 74 65 72 20 26 20 |gColDeli|miter & |
|00003310| 22 73 69 78 74 68 22 20 | 61 66 74 65 72 20 69 74 |"sixth" |after it|
|00003320| 0d 70 75 74 20 67 43 6f | 6c 44 65 6c 69 6d 69 74 |.put gCo|lDelimit|
|00003330| 65 72 20 26 20 22 73 65 | 76 65 6e 74 68 22 20 26 |er & "se|venth" &|
|00003340| 20 67 43 6f 6c 44 65 6c | 69 6d 69 74 65 72 20 26 | gColDel|imiter &|
|00003350| 20 22 65 69 67 68 74 68 | 22 20 26 20 67 43 6f 6c | "eighth|" & gCol|
|00003360| 44 65 6c 69 6d 69 74 65 | 72 20 26 20 22 6e 69 6e |Delimite|r & "nin|
|00003370| 74 68 22 20 61 66 74 65 | 72 20 69 74 0d 70 75 74 |th" afte|r it.put|
|00003380| 20 69 74 20 69 6e 74 6f | 20 63 64 20 66 6c 64 20 | it into| cd fld |
|00003390| 31 0d 65 6e 64 20 62 75 | 69 6c 64 41 72 72 61 79 |1.end bu|ildArray|
|000033a0| 0d 0d 0d 6f 6e 20 6f 70 | 65 6e 53 74 61 63 6b 20 |...on op|enStack |
|000033b0| 2d 2d 20 68 6f 75 73 65 | 6b 65 65 70 69 6e 67 0d |-- house|keeping.|
|000033c0| 69 66 20 74 68 65 20 76 | 65 72 73 69 6f 6e 20 3c |if the v|ersion <|
|000033d0| 20 32 20 74 68 65 6e 0d | 61 6e 73 77 65 72 20 22 | 2 then.|answer "|
|000033e0| 54 68 69 73 20 73 74 61 | 63 6b 20 72 65 6c 69 65 |This sta|ck relie|
|000033f0| 73 20 6f 6e 20 48 79 70 | 65 72 43 61 72 64 20 32 |s on Hyp|erCard 2|
|00003400| 2e 78 27 73 20 69 74 65 | 6d 44 65 6c 69 6d 69 74 |.x's ite|mDelimit|
|00003410| 65 72 20 70 72 6f 70 65 | 72 74 79 22 20 26 26 c2 |er prope|rty" &&.|
|00003420| 0d 22 66 6f 72 20 69 74 | 73 20 66 75 6e 63 74 69 |."for it|s functi|
|00003430| 6f 6e 61 6c 69 74 79 2e | 22 26 20 72 65 74 75 72 |onality.|"& retur|
|00003440| 6e 20 26 20 22 53 6f 72 | 72 79 2e 22 20 77 69 74 |n & "Sor|ry." wit|
|00003450| 68 20 22 47 6f 20 42 61 | 63 6b 22 0d 67 6f 20 62 |h "Go Ba|ck".go b|
|00003460| 61 63 6b 0d 65 6c 73 65 | 20 69 66 20 74 68 65 20 |ack.else| if the |
|00003470| 76 65 72 73 69 6f 6e 20 | 3c 20 32 2e 32 20 74 68 |version |< 2.2 th|
|00003480| 65 6e 0d 61 6e 73 77 65 | 72 20 22 54 68 69 73 20 |en.answe|r "This |
|00003490| 73 74 61 63 6b 20 72 65 | 6c 69 65 73 20 6f 6e 20 |stack re|lies on |
|000034a0| 48 79 70 65 72 43 61 72 | 64 20 32 2e 32 20 69 6e |HyperCar|d 2.2 in|
|000034b0| 74 65 72 66 61 63 65 20 | 66 65 61 74 75 72 65 73 |terface |features|
|000034c0| 2e 22 20 26 20 72 65 74 | 75 72 6e 20 26 c2 0d 22 |." & ret|urn &.."|
|000034d0| 59 6f 75 20 77 69 6c 6c | 20 62 65 20 61 62 6c 65 |You will| be able|
|000034e0| 20 74 6f 20 72 65 61 64 | 20 74 68 65 20 64 6f 63 | to read| the doc|
|000034f0| 75 6d 65 6e 74 61 74 69 | 6f 6e 20 61 6e 64 20 65 |umentati|on and e|
|00003500| 78 61 6d 69 6e 65 20 74 | 68 65 20 73 63 72 69 70 |xamine t|he scrip|
|00003510| 74 73 2c 20 62 75 74 22 | 20 26 26 c2 0d 22 6e 6f |ts, but"| &&.."no|
|00003520| 74 20 74 65 73 74 20 69 | 74 20 64 69 72 65 63 74 |t test i|t direct|
|00003530| 6c 79 2e 22 20 77 69 74 | 68 20 22 4f 68 20 57 65 |ly." wit|h "Oh We|
|00003540| 6c 6c 22 0d 65 6e 64 20 | 69 66 0d 67 6c 6f 62 61 |ll".end |if.globa|
|00003550| 6c 20 67 52 6f 77 44 65 | 6c 69 6d 69 74 65 72 2c |l gRowDe|limiter,|
|00003560| 20 67 43 6f 6c 44 65 6c | 69 6d 69 74 65 72 0d 73 | gColDel|imiter.s|
|00003570| 65 74 20 74 68 65 20 73 | 63 72 6f 6c 6c 20 6f 66 |et the s|croll of|
|00003580| 20 63 64 20 66 6c 64 20 | 32 20 74 6f 20 30 0d 63 | cd fld |2 to 0.c|
|00003590| 6c 69 63 6b 20 61 74 20 | 74 68 65 20 6c 6f 63 20 |lick at |the loc |
|000035a0| 6f 66 20 63 64 20 62 74 | 6e 20 35 0d 70 75 74 20 |of cd bt|n 5.put |
|000035b0| 72 65 74 75 72 6e 20 69 | 6e 74 6f 20 67 52 6f 77 |return i|nto gRow|
|000035c0| 44 65 6c 69 6d 69 74 65 | 72 0d 70 75 74 20 63 6f |Delimite|r.put co|
|000035d0| 6d 6d 61 20 69 6e 74 6f | 20 67 43 6f 6c 44 65 6c |mma into| gColDel|
|000035e0| 69 6d 69 74 65 72 0d 62 | 75 69 6c 64 41 72 72 61 |imiter.b|uildArra|
|000035f0| 79 0d 65 6e 64 20 6f 70 | 65 6e 53 74 61 63 6b 00 |y.end op|enStack.|
|00003600| 00 00 39 e0 43 41 52 44 | 00 00 0b de 00 00 00 00 |..9.CARD|........|
|00003610| 00 00 0e c4 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00003620| 00 00 09 59 00 00 0a e9 | 00 10 00 1a 00 00 10 0c |...Y....|........|
|00003630| 00 06 00 00 29 8a 00 22 | 00 01 02 b4 00 0e ff ff |....).."|........|
|00003640| 01 29 02 01 20 07 00 00 | 00 00 00 00 00 04 00 09 |.).. ...|........|
|00003650| 00 00 00 0c 00 00 00 00 | 00 2e 00 02 02 04 00 0e |........|........|
|00003660| ff fc 01 29 02 01 20 07 | 00 00 00 00 00 00 00 03 |...).. .|........|
|00003670| 00 09 00 00 00 0c 44 6f | 63 75 6d 65 6e 74 61 74 |......Do|cumentat|
|00003680| 69 6f 6e 00 00 00 00 e2 | 00 03 01 00 01 2b 00 bb |ion.....|.....+..|
|00003690| 01 3f 00 fe a0 08 00 00 | 00 00 00 01 00 03 00 09 |.?......|........|
|000036a0| 00 00 00 0c 47 65 74 20 | 43 65 6c 6c 28 73 29 00 |....Get |Cell(s).|
|000036b0| 00 6f 6e 20 6d 6f 75 73 | 65 55 70 0d 67 6c 6f 62 |.on mous|eUp.glob|
|000036c0| 61 6c 20 67 52 6f 77 44 | 65 6c 69 6d 69 74 65 72 |al gRowD|elimiter|
|000036d0| 2c 20 67 43 6f 6c 44 65 | 6c 69 6d 69 74 65 72 0d |, gColDe|limiter.|
|000036e0| 70 75 74 20 67 65 74 41 | 72 72 61 79 45 6c 65 6d |put getA|rrayElem|
|000036f0| 65 6e 74 28 63 64 20 66 | 6c 64 20 31 2c 20 63 64 |ent(cd f|ld 1, cd|
|00003700| 20 66 6c 64 20 33 2c 20 | 63 64 20 66 6c 64 20 34 | fld 3, |cd fld 4|
|00003710| 2c 20 67 52 6f 77 44 65 | 6c 69 6d 69 74 65 72 2c |, gRowDe|limiter,|
|00003720| 20 67 43 6f 6c 44 65 6c | 69 6d 69 74 65 72 29 20 | gColDel|imiter) |
|00003730| 69 6e 74 6f 20 63 64 20 | 66 6c 64 20 35 0d 63 6c |into cd |fld 5.cl|
|00003740| 69 63 6b 20 61 74 20 6c | 6f 63 20 6f 66 20 63 64 |ick at l|oc of cd|
|00003750| 20 62 74 6e 20 49 44 20 | 32 36 0d 65 6e 64 20 6d | btn ID |26.end m|
|00003760| 6f 75 73 65 55 70 00 00 | 00 9a 00 09 02 04 01 2c |ouseUp..|.......,|
|00003770| 01 da 01 3c 01 f4 00 02 | 00 00 00 00 ff ff 00 00 |...<....|........|
|00003780| 00 0c 00 00 00 10 52 6f | 77 56 61 6c 75 65 00 00 |......Ro|wValue..|
|00003790| 6f 6e 20 63 6c 6f 73 65 | 46 69 65 6c 64 0d 69 66 |on close|Field.if|
|000037a0| 20 76 61 6c 75 65 20 28 | 6d 65 29 20 69 73 20 6e | value (|me) is n|
|000037b0| 6f 74 20 61 20 6e 75 6d | 62 65 72 20 61 6e 64 20 |ot a num|ber and |
|000037c0| 6d 65 20 69 73 20 6e 6f | 74 20 65 6d 70 74 79 20 |me is no|t empty |
|000037d0| 74 68 65 6e 0d 62 65 65 | 70 0d 73 65 6c 65 63 74 |then.bee|p.select|
|000037e0| 20 74 65 78 74 20 6f 66 | 20 6d 65 0d 65 6e 64 20 | text of| me.end |
|000037f0| 69 66 0d 65 6e 64 20 63 | 6c 6f 73 65 46 69 65 6c |if.end c|loseFiel|
|00003800| 64 00 00 ea 00 0a 01 00 | 01 41 00 bb 01 55 00 fe |d.......|.A...U..|
|00003810| a0 08 00 00 00 00 00 01 | 00 03 00 09 00 00 00 0c |........|........|
|00003820| 53 65 74 20 43 65 6c 6c | 28 73 29 00 00 6f 6e 20 |Set Cell|(s)..on |
|00003830| 6d 6f 75 73 65 55 70 0d | 67 6c 6f 62 61 6c 20 67 |mouseUp.|global g|
|00003840| 52 6f 77 44 65 6c 69 6d | 69 74 65 72 2c 20 67 43 |RowDelim|iter, gC|
|00003850| 6f 6c 44 65 6c 69 6d 69 | 74 65 72 0d 70 75 74 20 |olDelimi|ter.put |
|00003860| 73 65 74 41 72 72 61 79 | 45 6c 65 6d 65 6e 74 28 |setArray|Element(|
|00003870| 63 64 20 66 6c 64 20 35 | 2c 63 64 20 66 6c 64 20 |cd fld 5|,cd fld |
|00003880| 31 2c 63 64 20 66 6c 64 | 20 33 2c 20 63 64 20 66 |1,cd fld| 3, cd f|
|00003890| 6c 64 20 34 2c 20 67 52 | 6f 77 44 65 6c 69 6d 69 |ld 4, gR|owDelimi|
|000038a0| 74 65 72 2c 20 67 43 6f | 6c 44 65 6c 69 6d 69 74 |ter, gCo|lDelimit|
|000038b0| 65 72 29 20 69 6e 74 6f | 20 63 64 20 66 6c 64 20 |er) into| cd fld |
|000038c0| 31 0d 63 6c 69 63 6b 20 | 61 74 20 6c 6f 63 20 6f |1.click |at loc o|
|000038d0| 66 20 63 64 20 62 74 6e | 20 49 44 20 32 35 0d 65 |f cd btn| ID 25.e|
|000038e0| 6e 64 20 6d 6f 75 73 65 | 55 70 00 00 00 9a 00 0b |nd mouse|Up......|
|000038f0| 02 04 01 3e 01 da 01 4e | 01 f4 00 02 00 00 00 00 |...>...N|........|
|00003900| ff ff 00 00 00 0c 00 00 | 00 10 43 6f 6c 56 61 6c |........|..ColVal|
|00003910| 75 65 00 00 6f 6e 20 63 | 6c 6f 73 65 46 69 65 6c |ue..on c|loseFiel|
|00003920| 64 0d 69 66 20 76 61 6c | 75 65 20 28 6d 65 29 20 |d.if val|ue (me) |
|00003930| 69 73 20 6e 6f 74 20 61 | 20 6e 75 6d 62 65 72 20 |is not a| number |
|00003940| 61 6e 64 20 6d 65 20 69 | 73 20 6e 6f 74 20 65 6d |and me i|s not em|
|00003950| 70 74 79 20 74 68 65 6e | 0d 62 65 65 70 0d 73 65 |pty then|.beep.se|
|00003960| 6c 65 63 74 20 74 65 78 | 74 20 6f 66 20 6d 65 0d |lect tex|t of me.|
|00003970| 65 6e 64 20 69 66 0d 65 | 6e 64 20 63 6c 6f 73 65 |end if.e|nd close|
|00003980| 46 69 65 6c 64 00 00 28 | 00 0d 02 a0 00 0e ff ff |Field..(|........|
|00003990| 01 29 02 01 20 07 00 00 | 00 00 00 00 00 04 00 09 |.).. ...|........|
|000039a0| 00 00 00 0c 54 68 65 44 | 61 74 61 00 00 00 02 88 |....TheD|ata.....|
|000039b0| 00 0f 01 00 01 2b 01 45 | 01 3f 01 8c a0 08 00 00 |.....+.E|.?......|
|000039c0| 00 00 00 01 00 03 00 09 | 00 00 00 0c 43 6f 6e 76 |........|....Conv|
|000039d0| 65 72 74 20 41 72 72 61 | 79 00 00 6f 6e 20 6d 6f |ert Arra|y..on mo|
|000039e0| 75 73 65 55 70 0d 67 6c | 6f 62 61 6c 20 67 52 6f |useUp.gl|obal gRo|
|000039f0| 77 44 65 6c 69 6d 69 74 | 65 72 2c 20 67 43 6f 6c |wDelimit|er, gCol|
|00003a00| 44 65 6c 69 6d 69 74 65 | 72 0d 61 73 6b 20 22 4f |Delimite|r.ask "O|
|00003a10| 4c 44 20 52 6f 77 20 44 | 65 6c 69 6d 69 74 65 72 |LD Row D|elimiter|
|00003a20| 3a 22 20 26 20 72 65 74 | 75 72 6e 20 26 20 22 4e |:" & ret|urn & "N|
|00003a30| 65 77 20 76 61 6c 75 65 | 20 73 65 74 20 62 79 20 |ew value| set by |
|00003a40| 52 6f 77 20 44 65 6c 69 | 6d 69 74 65 72 20 62 75 |Row Deli|miter bu|
|00003a50| 74 74 6f 6e 22 20 77 69 | 74 68 20 67 52 6f 77 44 |tton" wi|th gRowD|
|00003a60| 65 6c 69 6d 69 74 65 72 | 0d 69 66 20 74 68 65 20 |elimiter|.if the |
|00003a70| 72 65 73 75 6c 74 20 3d | 20 22 43 61 6e 63 65 6c |result =| "Cancel|
|00003a80| 22 20 6f 72 20 69 74 20 | 69 73 20 65 6d 70 74 79 |" or it |is empty|
|00003a90| 20 74 68 65 6e 20 65 78 | 69 74 20 6d 6f 75 73 65 | then ex|it mouse|
|00003aa0| 55 70 0d 65 6c 73 65 20 | 70 75 74 20 63 68 61 72 |Up.else |put char|
|00003ab0| 20 31 20 6f 66 20 76 61 | 6c 75 65 28 69 74 29 20 | 1 of va|lue(it) |
|00003ac0| 69 6e 74 6f 20 6f 6c 64 | 52 6f 77 44 65 6c 69 6d |into old|RowDelim|
|00003ad0| 69 74 65 72 0d 0d 61 73 | 6b 20 22 4f 4c 44 20 43 |iter..as|k "OLD C|
|00003ae0| 6f 6c 75 6d 6e 20 44 65 | 6c 69 6d 69 74 65 72 3a |olumn De|limiter:|
|00003af0| 22 20 26 20 72 65 74 75 | 72 6e 20 26 20 22 4e 65 |" & retu|rn & "Ne|
|00003b00| 77 20 76 61 6c 75 65 20 | 73 65 74 20 62 79 20 43 |w value |set by C|
|00003b10| 6f 6c 75 6d 6e 20 44 65 | 6c 69 6d 69 74 65 72 20 |olumn De|limiter |
|00003b20| 62 75 74 74 6f 6e 22 20 | 77 69 74 68 20 67 43 6f |button" |with gCo|
|00003b30| 6c 44 65 6c 69 6d 69 74 | 65 72 0d 69 66 20 74 68 |lDelimit|er.if th|
|00003b40| 65 20 72 65 73 75 6c 74 | 20 3d 20 22 43 61 6e 63 |e result| = "Canc|
|00003b50| 65 6c 22 20 6f 72 20 69 | 74 20 69 73 20 65 6d 70 |el" or i|t is emp|
|00003b60| 74 79 20 74 68 65 6e 20 | 65 78 69 74 20 6d 6f 75 |ty then |exit mou|
|00003b70| 73 65 55 70 0d 65 6c 73 | 65 20 70 75 74 20 63 68 |seUp.els|e put ch|
|00003b80| 61 72 20 31 20 6f 66 20 | 76 61 6c 75 65 28 69 74 |ar 1 of |value(it|
|00003b90| 29 20 69 6e 74 6f 20 6f | 6c 64 43 6f 6c 44 65 6c |) into o|ldColDel|
|00003ba0| 69 6d 69 74 65 72 0d 0d | 70 75 74 20 63 6f 6e 76 |imiter..|put conv|
|00003bb0| 65 72 74 41 72 72 61 79 | 28 63 64 20 66 6c 64 20 |ertArray|(cd fld |
|00003bc0| 31 2c 67 52 6f 77 44 65 | 6c 69 6d 69 74 65 72 2c |1,gRowDe|limiter,|
|00003bd0| 67 43 6f 6c 44 65 6c 69 | 6d 69 74 65 72 2c 6f 6c |gColDeli|miter,ol|
|00003be0| 64 52 6f 77 44 65 6c 69 | 6d 69 74 65 72 2c 6f 6c |dRowDeli|miter,ol|
|00003bf0| 64 43 6f 6c 44 65 6c 69 | 6d 69 74 65 72 29 20 69 |dColDeli|miter) i|
|00003c00| 6e 74 6f 20 63 64 20 66 | 6c 64 20 31 0d 63 6c 69 |nto cd f|ld 1.cli|
|00003c10| 63 6b 20 61 74 20 6c 6f | 63 20 6f 66 20 63 64 20 |ck at lo|c of cd |
|00003c20| 62 74 6e 20 49 44 20 32 | 35 0d 65 6e 64 20 6d 6f |btn ID 2|5.end mo|
|00003c30| 75 73 65 55 70 00 02 70 | 00 10 01 00 01 2e 00 0f |useUp..p|........|
|00003c40| 01 3d 00 b9 a0 0b 00 46 | 00 01 00 00 00 03 00 09 |.=.....F|........|
|00003c50| 00 00 00 0c 52 6f 77 20 | 44 65 6c 69 6d 69 74 65 |....Row |Delimite|
|00003c60| 72 00 00 6f 6e 20 6d 6f | 75 73 65 55 70 0d 67 6c |r..on mo|useUp.gl|
|00003c70| 6f 62 61 6c 20 67 52 6f | 77 44 65 6c 69 6d 69 74 |obal gRo|wDelimit|
|00003c80| 65 72 0d 67 65 74 20 6c | 69 6e 65 20 28 77 6f 72 |er.get l|ine (wor|
|00003c90| 64 20 32 20 6f 66 20 74 | 68 65 20 73 65 6c 65 63 |d 2 of t|he selec|
|00003ca0| 74 65 64 6c 69 6e 65 20 | 6f 66 20 6d 65 29 20 6f |tedline |of me) o|
|00003cb0| 66 20 6d 65 0d 69 66 20 | 63 68 61 72 20 31 20 6f |f me.if |char 1 o|
|00003cc0| 66 20 76 61 6c 75 65 28 | 69 74 29 20 3d 20 72 65 |f value(|it) = re|
|00003cd0| 74 75 72 6e 20 74 68 65 | 6e 20 70 75 74 20 72 65 |turn the|n put re|
|00003ce0| 74 75 72 6e 20 69 6e 74 | 6f 20 67 52 6f 77 44 65 |turn int|o gRowDe|
|00003cf0| 6c 69 6d 69 74 65 72 0d | 65 6c 73 65 20 69 66 20 |limiter.|else if |
|00003d00| 63 68 61 72 20 31 20 6f | 66 20 76 61 6c 75 65 28 |char 1 o|f value(|
|00003d10| 69 74 29 20 3d 20 6c 69 | 6e 65 66 65 65 64 20 74 |it) = li|nefeed t|
|00003d20| 68 65 6e 20 70 75 74 20 | 6c 69 6e 65 66 65 65 64 |hen put |linefeed|
|00003d30| 20 69 6e 74 6f 20 67 52 | 6f 77 44 65 6c 69 6d 69 | into gR|owDelimi|
|00003d40| 74 65 72 0d 65 6c 73 65 | 20 69 66 20 69 74 20 63 |ter.else| if it c|
|00003d50| 6f 6e 74 61 69 6e 73 20 | 22 4f 74 68 65 72 c9 22 |ontains |"Other."|
|00003d60| 20 74 68 65 6e 0d 61 73 | 6b 20 22 50 6c 65 61 73 | then.as|k "Pleas|
|00003d70| 65 20 74 79 70 65 20 74 | 68 65 20 73 69 6e 67 6c |e type t|he singl|
|00003d80| 65 20 63 68 61 72 61 63 | 74 65 72 20 74 6f 20 75 |e charac|ter to u|
|00003d90| 73 65 20 74 6f 20 64 65 | 6c 69 6d 69 74 20 63 6f |se to de|limit co|
|00003da0| 6c 75 6d 6e 73 3a 22 20 | 77 69 74 68 20 67 52 6f |lumns:" |with gRo|
|00003db0| 77 44 65 6c 69 6d 69 74 | 65 72 0d 69 66 20 69 74 |wDelimit|er.if it|
|00003dc0| 20 3c 3e 20 22 43 61 6e | 63 65 6c 22 20 61 6e 64 | <> "Can|cel" and|
|00003dd0| 20 69 74 20 3c 3e 20 65 | 6d 70 74 79 20 74 68 65 | it <> e|mpty the|
|00003de0| 6e 0d 67 65 74 20 63 68 | 61 72 20 31 20 6f 66 20 |n.get ch|ar 1 of |
|00003df0| 76 61 6c 75 65 28 69 74 | 29 0d 70 75 74 20 69 74 |value(it|).put it|
|00003e00| 20 69 6e 74 6f 20 67 52 | 6f 77 44 65 6c 69 6d 69 | into gR|owDelimi|
|00003e10| 74 65 72 0d 70 75 74 20 | 22 4f 74 68 65 72 c9 20 |ter.put |"Other. |
|00003e20| 28 22 20 26 20 71 75 6f | 74 65 20 26 20 67 52 6f |(" & quo|te & gRo|
|00003e30| 77 44 65 6c 69 6d 69 74 | 65 72 20 26 20 71 75 6f |wDelimit|er & quo|
|00003e40| 74 65 20 26 20 22 29 22 | 20 69 6e 74 6f 20 74 68 |te & ")"| into th|
|00003e50| 65 20 73 65 6c 65 63 74 | 65 64 4c 69 6e 65 20 6f |e select|edLine o|
|00003e60| 66 20 6d 65 0d 65 6c 73 | 65 20 70 75 74 20 22 4f |f me.els|e put "O|
|00003e70| 74 68 65 72 c9 22 20 69 | 6e 74 6f 20 74 68 65 20 |ther." i|nto the |
|00003e80| 73 65 6c 65 63 74 65 64 | 4c 69 6e 65 20 6f 66 20 |selected|Line of |
|00003e90| 6d 65 0d 65 6e 64 20 69 | 66 0d 65 6e 64 20 6d 6f |me.end i|f.end mo|
|00003ea0| 75 73 65 55 70 00 00 b2 | 00 11 01 00 00 00 00 00 |useUp...|........|
|00003eb0| 00 0e 00 73 c1 01 00 1d | 00 00 00 01 00 00 00 0c |...s....|........|
|00003ec0| 00 00 00 10 44 6f 63 75 | 6d 65 6e 74 61 74 69 6f |....Docu|mentatio|
|00003ed0| 6e 00 00 6f 6e 20 6d 6f | 75 73 65 55 70 0d 6c 6f |n..on mo|useUp.lo|
|00003ee0| 63 6b 20 73 63 72 65 65 | 6e 0d 73 65 74 20 76 69 |ck scree|n.set vi|
|00003ef0| 73 69 62 6c 65 20 6f 66 | 20 63 64 20 66 6c 64 20 |sible of| cd fld |
|00003f00| 31 20 74 6f 20 66 61 6c | 73 65 0d 73 65 74 20 76 |1 to fal|se.set v|
|00003f10| 69 73 69 62 6c 65 20 6f | 66 20 63 64 20 66 6c 64 |isible o|f cd fld|
|00003f20| 20 32 20 74 6f 20 74 72 | 75 65 0d 73 65 74 20 76 | 2 to tr|ue.set v|
|00003f30| 69 73 69 62 6c 65 20 6f | 66 20 63 64 20 66 6c 64 |isible o|f cd fld|
|00003f40| 20 35 20 74 6f 20 66 61 | 6c 73 65 0d 65 6e 64 20 | 5 to fa|lse.end |
|00003f50| 6d 6f 75 73 65 55 70 00 | 02 92 00 12 01 00 01 43 |mouseUp.|.......C|
|00003f60| 00 03 01 52 00 b9 a0 0b | 00 52 00 01 00 00 00 03 |...R....|.R......|
|00003f70| 00 09 00 00 00 0c 43 6f | 6c 75 6d 6e 20 44 65 6c |......Co|lumn Del|
|00003f80| 69 6d 69 74 65 72 00 00 | 6f 6e 20 6d 6f 75 73 65 |imiter..|on mouse|
|00003f90| 55 70 0d 67 6c 6f 62 61 | 6c 20 67 43 6f 6c 44 65 |Up.globa|l gColDe|
|00003fa0| 6c 69 6d 69 74 65 72 0d | 67 65 74 20 6c 69 6e 65 |limiter.|get line|
|00003fb0| 20 28 77 6f 72 64 20 32 | 20 6f 66 20 74 68 65 20 | (word 2| of the |
|00003fc0| 73 65 6c 65 63 74 65 64 | 6c 69 6e 65 20 6f 66 20 |selected|line of |
|00003fd0| 6d 65 29 20 6f 66 20 6d | 65 0d 69 66 20 69 74 20 |me) of m|e.if it |
|00003fe0| 69 73 20 22 43 6f 6d 6d | 61 22 20 74 68 65 6e 20 |is "Comm|a" then |
|00003ff0| 70 75 74 20 63 6f 6d 6d | 61 20 69 6e 74 6f 20 67 |put comm|a into g|
|00004000| 43 6f 6c 44 65 6c 69 6d | 69 74 65 72 0d 65 6c 73 |ColDelim|iter.els|
|00004010| 65 20 69 66 20 69 74 20 | 69 73 20 22 54 61 62 22 |e if it |is "Tab"|
|00004020| 20 74 68 65 6e 20 70 75 | 74 20 74 61 62 20 69 6e | then pu|t tab in|
|00004030| 74 6f 20 67 43 6f 6c 44 | 65 6c 69 6d 69 74 65 72 |to gColD|elimiter|
|00004040| 0d 65 6c 73 65 20 69 66 | 20 69 74 20 69 73 20 22 |.else if| it is "|
|00004050| 56 65 72 74 69 63 61 6c | 20 54 61 62 22 20 74 68 |Vertical| Tab" th|
|00004060| 65 6e 20 70 75 74 20 6e | 75 6d 54 6f 43 68 61 72 |en put n|umToChar|
|00004070| 28 31 31 29 20 69 6e 74 | 6f 20 67 43 6f 6c 44 65 |(11) int|o gColDe|
|00004080| 6c 69 6d 69 74 65 72 0d | 65 6c 73 65 20 69 66 20 |limiter.|else if |
|00004090| 69 74 20 63 6f 6e 74 61 | 69 6e 73 20 22 4f 74 68 |it conta|ins "Oth|
|000040a0| 65 72 c9 22 20 74 68 65 | 6e 0d 61 73 6b 20 22 50 |er." the|n.ask "P|
|000040b0| 6c 65 61 73 65 20 74 79 | 70 65 20 74 68 65 20 73 |lease ty|pe the s|
|000040c0| 69 6e 67 6c 65 20 63 68 | 61 72 61 63 74 65 72 20 |ingle ch|aracter |
|000040d0| 74 6f 20 75 73 65 20 74 | 6f 20 64 65 6c 69 6d 69 |to use t|o delimi|
|000040e0| 74 20 63 6f 6c 75 6d 6e | 73 3a 22 20 77 69 74 68 |t column|s:" with|
|000040f0| 20 67 43 6f 6c 44 65 6c | 69 6d 69 74 65 72 0d 69 | gColDel|imiter.i|
|00004100| 66 20 69 74 20 3c 3e 20 | 22 43 61 6e 63 65 6c 22 |f it <> |"Cancel"|
|00004110| 20 61 6e 64 20 69 74 20 | 3c 3e 20 65 6d 70 74 79 | and it |<> empty|
|00004120| 20 74 68 65 6e 0d 67 65 | 74 20 63 68 61 72 20 31 | then.ge|t char 1|
|00004130| 20 6f 66 20 76 61 6c 75 | 65 28 69 74 29 0d 70 75 | of valu|e(it).pu|
|00004140| 74 20 69 74 20 69 6e 74 | 6f 20 67 43 6f 6c 44 65 |t it int|o gColDe|
|00004150| 6c 69 6d 69 74 65 72 0d | 70 75 74 20 22 4f 74 68 |limiter.|put "Oth|
|00004160| 65 72 c9 20 28 22 20 26 | 20 71 75 6f 74 65 20 26 |er. (" &| quote &|
|00004170| 20 67 43 6f 6c 44 65 6c | 69 6d 69 74 65 72 20 26 | gColDel|imiter &|
|00004180| 20 71 75 6f 74 65 20 26 | 20 22 29 22 20 69 6e 74 | quote &| ")" int|
|00004190| 6f 20 74 68 65 20 73 65 | 6c 65 63 74 65 64 4c 69 |o the se|lectedLi|
|000041a0| 6e 65 20 6f 66 20 6d 65 | 0d 65 6c 73 65 20 70 75 |ne of me|.else pu|
|000041b0| 74 20 22 4f 74 68 65 72 | c9 22 20 69 6e 74 6f 20 |t "Other|." into |
|000041c0| 74 68 65 20 73 65 6c 65 | 63 74 65 64 4c 69 6e 65 |the sele|ctedLine|
|000041d0| 20 6f 66 20 6d 65 0d 65 | 6e 64 20 69 66 0d 65 6e | of me.e|nd if.en|
|000041e0| 64 20 6d 6f 75 73 65 55 | 70 00 01 46 00 13 01 00 |d mouseU|p..F....|
|000041f0| 01 2b 01 00 01 3f 01 43 | a0 08 00 00 00 00 00 01 |.+...?.C|........|
|00004200| 00 03 00 09 00 00 00 0c | 49 6e 73 65 72 74 20 43 |........|Insert C|
|00004210| 65 6c 6c 28 73 29 00 00 | 6f 6e 20 6d 6f 75 73 65 |ell(s)..|on mouse|
|00004220| 55 70 0d 67 6c 6f 62 61 | 6c 20 67 52 6f 77 44 65 |Up.globa|l gRowDe|
|00004230| 6c 69 6d 69 74 65 72 2c | 20 67 43 6f 6c 44 65 6c |limiter,| gColDel|
|00004240| 69 6d 69 74 65 72 0d 69 | 66 20 63 64 20 66 6c 64 |imiter.i|f cd fld|
|00004250| 20 33 20 69 73 20 6e 6f | 74 20 61 6e 20 69 6e 74 | 3 is no|t an int|
|00004260| 65 67 65 72 20 74 68 65 | 6e 20 62 65 65 70 0d 65 |eger the|n beep.e|
|00004270| 6c 73 65 20 69 66 20 63 | 64 20 66 6c 64 20 34 20 |lse if c|d fld 4 |
|00004280| 69 73 20 6e 6f 74 20 61 | 6e 20 69 6e 74 65 67 65 |is not a|n intege|
|00004290| 72 20 74 68 65 6e 20 62 | 65 65 70 0d 65 6c 73 65 |r then b|eep.else|
|000042a0| 0d 70 75 74 20 69 6e 73 | 65 72 74 41 72 72 61 79 |.put ins|ertArray|
|000042b0| 45 6c 65 6d 65 6e 74 28 | 63 64 20 66 6c 64 20 31 |Element(|cd fld 1|
|000042c0| 2c 63 64 20 66 6c 64 20 | 33 2c 63 64 20 66 6c 64 |,cd fld |3,cd fld|
|000042d0| 20 34 2c 20 67 52 6f 77 | 44 65 6c 69 6d 69 74 65 | 4, gRow|Delimite|
|000042e0| 72 2c 20 67 43 6f 6c 44 | 65 6c 69 6d 69 74 65 72 |r, gColD|elimiter|
|000042f0| 29 20 69 6e 74 6f 20 63 | 64 20 66 6c 64 20 31 0d |) into c|d fld 1.|
|00004300| 63 6c 69 63 6b 20 61 74 | 20 6c 6f 63 20 6f 66 20 |click at| loc of |
|00004310| 63 64 20 62 74 6e 20 49 | 44 20 32 35 0d 65 6e 64 |cd btn I|D 25.end|
|00004320| 20 69 66 0d 65 6e 64 20 | 6d 6f 75 73 65 55 70 00 | if.end |mouseUp.|
|00004330| 01 46 00 14 01 00 01 41 | 01 00 01 55 01 43 a0 08 |.F.....A|...U.C..|
|00004340| 00 00 00 00 00 01 00 03 | 00 09 00 00 00 0c 44 65 |........|......De|
|00004350| 6c 65 74 65 20 43 65 6c | 6c 28 73 29 00 00 6f 6e |lete Cel|l(s)..on|
|00004360| 20 6d 6f 75 73 65 55 70 | 0d 67 6c 6f 62 61 6c 20 | mouseUp|.global |
|00004370| 67 52 6f 77 44 65 6c 69 | 6d 69 74 65 72 2c 20 67 |gRowDeli|miter, g|
|00004380| 43 6f 6c 44 65 6c 69 6d | 69 74 65 72 0d 69 66 20 |ColDelim|iter.if |
|00004390| 63 64 20 66 6c 64 20 33 | 20 69 73 20 6e 6f 74 20 |cd fld 3| is not |
|000043a0| 61 6e 20 69 6e 74 65 67 | 65 72 20 74 68 65 6e 20 |an integ|er then |
|000043b0| 62 65 65 70 0d 65 6c 73 | 65 20 69 66 20 63 64 20 |beep.els|e if cd |
|000043c0| 66 6c 64 20 34 20 69 73 | 20 6e 6f 74 20 61 6e 20 |fld 4 is| not an |
|000043d0| 69 6e 74 65 67 65 72 20 | 74 68 65 6e 20 62 65 65 |integer |then bee|
|000043e0| 70 0d 65 6c 73 65 0d 70 | 75 74 20 64 65 6c 65 74 |p.else.p|ut delet|
|000043f0| 65 41 72 72 61 79 45 6c | 65 6d 65 6e 74 28 63 64 |eArrayEl|ement(cd|
|00004400| 20 66 6c 64 20 31 2c 63 | 64 20 66 6c 64 20 33 2c | fld 1,c|d fld 3,|
|00004410| 63 64 20 66 6c 64 20 34 | 2c 20 67 52 6f 77 44 65 |cd fld 4|, gRowDe|
|00004420| 6c 69 6d 69 74 65 72 2c | 20 67 43 6f 6c 44 65 6c |limiter,| gColDel|
|00004430| 69 6d 69 74 65 72 29 20 | 69 6e 74 6f 20 63 64 20 |imiter) |into cd |
|00004440| 66 6c 64 20 31 0d 63 6c | 69 63 6b 20 61 74 20 6c |fld 1.cl|ick at l|
|00004450| 6f 63 20 6f 66 20 63 64 | 20 62 74 6e 20 49 44 20 |oc of cd| btn ID |
|00004460| 32 35 0d 65 6e 64 20 69 | 66 0d 65 6e 64 20 6d 6f |25.end i|f.end mo|
|00004470| 75 73 65 55 70 00 00 6a | 00 17 01 00 01 41 01 45 |useUp..j|.....A.E|
|00004480| 01 55 01 8c a0 08 00 00 | 00 00 00 01 00 03 00 09 |.U......|........|
|00004490| 00 00 00 0c 52 65 73 65 | 74 20 41 72 72 61 79 00 |....Rese|t Array.|
|000044a0| 00 6f 6e 20 6d 6f 75 73 | 65 55 70 0d 62 75 69 6c |.on mous|eUp.buil|
|000044b0| 64 41 72 72 61 79 0d 63 | 6c 69 63 6b 20 61 74 20 |dArray.c|lick at |
|000044c0| 6c 6f 63 20 6f 66 20 63 | 64 20 62 74 6e 20 49 44 |loc of c|d btn ID|
|000044d0| 20 32 35 0d 65 6e 64 20 | 6d 6f 75 73 65 55 70 00 | 25.end |mouseUp.|
|000044e0| 00 b0 00 19 01 00 00 00 | 00 73 00 0e 00 e6 81 01 |........|.s......|
|000044f0| 00 1d 00 00 00 01 00 00 | 00 0c 00 00 00 10 53 61 |........|......Sa|
|00004500| 6d 70 6c 65 20 44 61 74 | 61 00 00 6f 6e 20 6d 6f |mple Dat|a..on mo|
|00004510| 75 73 65 55 70 0d 6c 6f | 63 6b 20 73 63 72 65 65 |useUp.lo|ck scree|
|00004520| 6e 0d 73 65 74 20 76 69 | 73 69 62 6c 65 20 6f 66 |n.set vi|sible of|
|00004530| 20 63 64 20 66 6c 64 20 | 31 20 74 6f 20 74 72 75 | cd fld |1 to tru|
|00004540| 65 0d 73 65 74 20 76 69 | 73 69 62 6c 65 20 6f 66 |e.set vi|sible of|
|00004550| 20 63 64 20 66 6c 64 20 | 32 20 74 6f 20 66 61 6c | cd fld |2 to fal|
|00004560| 73 65 0d 73 65 74 20 76 | 69 73 69 62 6c 65 20 6f |se.set v|isible o|
|00004570| 66 20 63 64 20 66 6c 64 | 20 35 20 74 6f 20 66 61 |f cd fld| 5 to fa|
|00004580| 6c 73 65 0d 65 6e 64 20 | 6d 6f 75 73 65 55 70 00 |lse.end |mouseUp.|
|00004590| 00 b2 00 1a 01 00 00 00 | 00 e6 00 0e 01 59 81 01 |........|.....Y..|
|000045a0| 00 1d 00 00 00 01 00 00 | 00 0c 00 00 00 10 47 65 |........|......Ge|
|000045b0| 74 2f 53 65 74 20 44 61 | 74 61 00 00 6f 6e 20 6d |t/Set Da|ta..on m|
|000045c0| 6f 75 73 65 55 70 0d 6c | 6f 63 6b 20 73 63 72 65 |ouseUp.l|ock scre|
|000045d0| 65 6e 0d 73 65 74 20 76 | 69 73 69 62 6c 65 20 6f |en.set v|isible o|
|000045e0| 66 20 63 64 20 66 6c 64 | 20 31 20 74 6f 20 66 61 |f cd fld| 1 to fa|
|000045f0| 6c 73 65 0d 73 65 74 20 | 76 69 73 69 62 6c 65 20 |lse.set |visible |
|00004600| 6f 66 20 63 64 20 66 6c | 64 20 32 20 74 6f 20 66 |of cd fl|d 2 to f|
|00004610| 61 6c 73 65 0d 73 65 74 | 20 76 69 73 69 62 6c 65 |alse.set| visible|
|00004620| 20 6f 66 20 63 64 20 66 | 6c 64 20 35 20 74 6f 20 | of cd f|ld 5 to |
|00004630| 74 72 75 65 0d 65 6e 64 | 20 6d 6f 75 73 65 55 70 |true.end| mouseUp|
|00004640| 00 00 ff fe 27 e9 81 ea | 00 00 00 0d 00 0c 00 07 |....'...|........|
|00004650| 00 0d 00 05 02 52 00 06 | 02 53 00 0d 02 63 00 08 |.....R..|.S...c..|
|00004660| 02 64 00 05 04 75 00 02 | 04 97 00 05 05 9e 00 02 |.d...u..|........|
|00004670| 05 cf 00 05 07 60 00 02 | 07 8a 00 05 07 b8 00 02 |.....`..|........|
|00004680| 07 ed 00 05 0a 1d 00 02 | 0a 74 00 05 0b 5a 00 06 |........|.t...Z..|
|00004690| 0b 69 00 05 0b 71 00 06 | 0b 75 00 05 0d 43 00 02 |.i...q..|.u...C..|
|000046a0| 0d c9 00 05 0e 87 00 02 | 0f 50 00 05 0f 98 00 0d |........|.P......|
|000046b0| 0f b7 00 05 0f f2 00 06 | 10 0e 00 05 10 14 00 02 |........|........|
|000046c0| 10 25 00 05 10 34 00 02 | 10 74 00 05 10 77 00 06 |.%...4..|.t...w..|
|000046d0| 10 96 00 05 10 9c 00 02 | 10 ad 00 05 10 bc 00 02 |........|........|
|000046e0| 11 04 00 05 11 07 00 06 | 11 1e 00 05 11 24 00 02 |........|.....$..|
|000046f0| 11 38 00 05 11 47 00 02 | 11 89 00 05 11 8c 00 06 |.8...G..|........|
|00004700| 11 a3 00 05 11 a9 00 02 | 11 bc 00 05 11 cc 00 02 |........|........|
|00004710| 12 0f 00 05 12 12 00 06 | 12 2e 00 05 12 34 00 02 |........|.....4..|
|00004720| 12 42 00 05 12 51 00 02 | 12 a0 00 05 12 d2 00 06 |.B...Q..|........|
|00004730| 12 dc 00 05 12 dd 00 06 | 12 e5 00 05 13 28 00 06 |........|.....(..|
|00004740| 13 31 00 05 13 68 00 06 | 13 6d 00 05 13 ba 00 06 |.1...h..|.m......|
|00004750| 13 bf 00 05 14 14 00 06 | 14 1e 00 05 14 5c 00 06 |........|.....\..|
|00004760| 14 66 00 05 14 a8 00 0a | 14 b5 00 05 14 ea 00 0a |.f......|........|
|00004770| 14 f8 00 0b 14 fc 00 05 | 15 32 00 0a 15 40 00 0b |........|.2...@..|
|00004780| 15 44 00 05 15 89 00 0a | 15 97 00 0b 15 9d 00 05 |.D......|........|
|00004790| 15 e4 00 0a 15 e5 00 05 | 16 06 00 02 16 27 00 05 |........|.....'..|
|000047a0| 16 ab 00 06 16 bc 00 05 | 16 bd 00 02 16 fd 00 05 |........|........|
|000047b0| 18 79 00 02 19 1e 00 05 | 19 1f 00 06 19 31 00 05 |.y......|.....1..|
|000047c0| 19 32 00 02 19 7b 00 05 | 1a 37 00 0c 1a 40 00 05 |.2...{..|.7...@..|
|000047d0| 1a 8a 00 0c 1a 98 00 05 | 1b 0e 00 02 1b ca 00 05 |........|........|
|000047e0| 1b cc 00 06 1b e0 00 05 | 1b e1 00 02 1c 24 00 05 |........|.....$..|
|000047f0| 1e 00 00 02 1e ba 00 05 | 1e bc 00 06 1e d0 00 05 |........|........|
|00004800| 1e d1 00 02 1f 14 00 05 | 20 b8 00 02 21 74 00 05 |........| ...!t..|
|00004810| 21 76 00 06 21 84 00 05 | 21 85 00 02 21 d6 00 05 |!v..!...|!...!...|
|00004820| 22 7d 00 02 23 f4 00 05 | 24 3b 00 0d 24 51 00 05 |"}..#...|$;..$Q..|
|00004830| 49 6e 74 72 6f 64 75 63 | 74 69 6f 6e 0d 54 68 69 |Introduc|tion.Thi|
|00004840| 73 20 73 74 61 63 6b 20 | 63 61 6e 20 62 65 20 75 |s stack |can be u|
|00004850| 73 65 64 20 61 73 20 61 | 20 74 75 74 6f 72 69 61 |sed as a| tutoria|
|00004860| 6c 20 6f 6e 20 73 69 6d | 75 6c 61 74 69 6e 67 20 |l on sim|ulating |
|00004870| 61 72 72 61 79 73 20 77 | 69 74 68 20 48 79 70 65 |arrays w|ith Hype|
|00004880| 72 54 61 6c 6b 2c 20 61 | 73 20 61 20 48 79 70 65 |rTalk, a|s a Hype|
|00004890| 72 54 61 6c 6b 20 73 63 | 72 69 70 74 20 65 78 61 |rTalk sc|ript exa|
|000048a0| 6d 70 6c 65 2c 20 6f 72 | 20 61 73 20 61 20 74 6f |mple, or| as a to|
|000048b0| 6f 6c 20 74 6f 20 70 72 | 6f 63 65 73 73 20 75 70 |ol to pr|ocess up|
|000048c0| 20 74 6f 20 33 30 20 4b | 20 6f 66 20 61 72 72 61 | to 30 K| of arra|
|000048d0| 79 20 64 61 74 61 20 64 | 69 72 65 63 74 6c 79 2e |y data d|irectly.|
|000048e0| 0d 0d 54 68 65 20 75 6e | 69 76 65 72 73 61 6c 20 |..The un|iversal |
|000048f0| 66 75 6e 63 74 69 6f 6e | 73 20 61 72 65 20 6c 6f |function|s are lo|
|00004900| 63 61 74 65 64 20 69 6e | 20 74 68 65 20 73 63 72 |cated in| the scr|
|00004910| 69 70 74 20 6f 66 20 74 | 68 69 73 20 73 74 61 63 |ipt of t|his stac|
|00004920| 6b 2c 20 74 68 65 20 73 | 70 65 63 69 66 69 63 20 |k, the s|pecific |
|00004930| 64 65 6d 6f 6e 73 74 72 | 61 74 69 6f 6e 20 73 63 |demonstr|ation sc|
|00004940| 72 69 70 74 73 20 61 72 | 65 20 73 74 6f 72 65 64 |ripts ar|e stored|
|00004950| 20 69 6e 20 74 68 65 20 | 63 61 72 64 20 62 75 74 | in the |card but|
|00004960| 74 6f 6e 73 20 61 62 6f | 76 65 20 61 6e 64 20 62 |tons abo|ve and b|
|00004970| 65 6c 6f 77 2e 0d 0d 4e | 6f 74 65 3a 20 74 68 65 |elow...N|ote: the|
|00004980| 20 62 75 74 74 6f 6e 73 | 20 61 72 65 20 61 6c 6c | buttons| are all|
|00004990| 20 48 79 70 65 72 43 61 | 72 64 20 32 2e 32 2b 20 | HyperCa|rd 2.2+ |
|000049a0| 73 74 79 6c 65 2c 20 73 | 6f 20 61 6c 74 68 6f 75 |style, s|o althou|
|000049b0| 67 68 20 74 68 69 73 20 | 73 74 61 63 6b 20 63 61 |gh this |stack ca|
|000049c0| 6e 20 62 65 20 6f 70 65 | 6e 65 64 20 62 79 20 61 |n be ope|ned by a|
|000049d0| 6e 79 20 76 65 72 73 69 | 6f 6e 20 6f 66 20 48 79 |ny versi|on of Hy|
|000049e0| 70 65 72 43 61 72 64 20 | 32 2c 20 6f 6e 6c 79 20 |perCard |2, only |
|000049f0| 48 79 70 65 72 43 61 72 | 64 20 32 2e 32 20 6f 72 |HyperCar|d 2.2 or|
|00004a00| 20 68 69 67 68 65 72 20 | 77 69 6c 6c 20 62 65 20 | higher |will be |
|00004a10| 61 62 6c 65 20 74 6f 20 | 61 63 63 65 73 73 20 74 |able to |access t|
|00004a20| 68 65 20 62 75 74 74 6f | 6e 20 66 75 6e 63 74 69 |he butto|n functi|
|00004a30| 6f 6e 73 2e 20 53 6f 72 | 72 79 2e 0d 0d 3d 3d 3d |ons. Sor|ry...===|
|00004a40| 3d 3d 3d 3d 3d 3d 3d 3d | 3d 3d 3d 3d 3d 3d 3d 3d |========|========|
|00004a50| 3d 3d 3d 3d 3d 3d 3d 3d | 3d 3d 3d 3d 3d 3d 3d 3d |========|========|
|00004a60| 3d 3d 3d 3d 3d 3d 3d 3d | 3d 3d 3d 3d 3d 3d 3d 3d |========|========|
|00004a70| 3d 3d 3d 3d 3d 3d 3d 3d | 3d 3d 3d 3d 3d 3d 3d 3d |========|========|
|00004a80| 3d 3d 0d 48 79 70 65 72 | 43 61 72 64 20 41 72 72 |==.Hyper|Card Arr|
|00004a90| 61 79 73 0d 0d 4d 6f 73 | 74 20 61 64 76 61 6e 63 |ays..Mos|t advanc|
|00004aa0| 65 64 20 48 79 70 65 72 | 43 61 72 64 20 64 65 76 |ed Hyper|Card dev|
|00004ab0| 65 6c 6f 70 65 72 73 20 | 6e 65 65 64 20 74 6f 20 |elopers |need to |
|00004ac0| 75 73 65 20 74 77 6f 2d | 64 69 6d 65 6e 73 69 6f |use two-|dimensio|
|00004ad0| 6e 61 6c 20 61 72 72 61 | 79 73 20 6f 66 20 64 61 |nal arra|ys of da|
|00004ae0| 74 61 20 61 74 20 73 6f | 6d 65 20 70 6f 69 6e 74 |ta at so|me point|
|00004af0| 2e 20 41 6c 74 68 6f 75 | 67 68 20 22 74 72 75 65 |. Althou|gh "true|
|00004b00| 22 20 32 2d 44 20 61 72 | 72 61 79 73 20 61 72 65 |" 2-D ar|rays are|
|00004b10| 20 6e 6f 74 20 70 6f 73 | 73 69 62 6c 65 20 69 6e | not pos|sible in|
|00004b20| 20 48 79 70 65 72 43 61 | 72 64 20 77 69 74 68 6f | HyperCa|rd witho|
|00004b30| 75 74 20 72 65 73 6f 72 | 74 69 6e 67 20 74 6f 20 |ut resor|ting to |
|00004b40| 65 78 74 65 72 6e 61 6c | 73 2c 20 69 74 20 69 73 |external|s, it is|
|00004b50| 20 72 65 6c 61 74 69 76 | 65 6c 79 20 65 61 73 79 | relativ|ely easy|
|00004b60| 20 74 6f 20 73 69 6d 75 | 6c 61 74 65 20 74 68 65 | to simu|late the|
|00004b70| 6d 2c 20 61 6e 64 20 74 | 68 65 79 20 63 61 6e 20 |m, and t|hey can |
|00004b80| 61 63 74 75 61 6c 6c 79 | 20 62 65 20 6d 6f 72 65 |actually| be more|
|00004b90| 20 66 6c 65 78 69 62 6c | 65 20 74 68 61 6e 20 74 | flexibl|e than t|
|00004ba0| 68 65 20 72 65 61 6c 20 | 74 68 69 6e 67 2e 20 54 |he real |thing. T|
|00004bb0| 68 69 73 20 73 69 6d 75 | 6c 61 74 69 6f 6e 20 69 |his simu|lation i|
|00004bc0| 73 20 64 6f 6e 65 20 77 | 69 74 68 20 48 79 70 65 |s done w|ith Hype|
|00004bd0| 72 43 61 72 64 27 73 20 | 22 63 68 75 6e 6b 69 6e |rCard's |"chunkin|
|00004be0| 67 22 20 63 61 70 61 62 | 69 6c 69 74 79 2e 0d 0d |g" capab|ility...|
|00004bf0| 43 68 75 6e 6b 73 20 61 | 72 65 20 68 6f 77 20 48 |Chunks a|re how H|
|00004c00| 79 70 65 72 43 61 72 64 | 20 72 65 63 6f 67 6e 69 |yperCard| recogni|
|00004c10| 7a 65 73 20 63 65 72 74 | 61 69 6e 20 67 72 6f 75 |zes cert|ain grou|
|00004c20| 70 69 6e 67 73 20 6f 66 | 20 74 65 78 74 2c 20 73 |pings of| text, s|
|00004c30| 75 63 68 20 61 73 20 63 | 68 61 72 61 63 74 65 72 |uch as c|haracter|
|00004c40| 73 2c 20 77 6f 72 64 73 | 2c 20 61 6e 64 20 6c 69 |s, words|, and li|
|00004c50| 6e 65 73 2e 20 54 68 65 | 73 65 20 63 68 75 6e 6b |nes. The|se chunk|
|00004c60| 73 20 63 61 6e 20 62 65 | 20 72 65 61 64 20 6f 72 |s can be| read or|
|00004c70| 20 6d 6f 64 69 66 69 65 | 64 20 66 72 6f 6d 20 61 | modifie|d from a|
|00004c80| 6e 79 20 48 79 70 65 72 | 54 61 6c 6b 20 63 6f 6d |ny Hyper|Talk com|
|00004c90| 6d 61 6e 64 2e 20 41 6e | 20 65 78 61 6d 70 6c 65 |mand. An| example|
|00004ca0| 20 69 73 3a 20 61 6e 73 | 77 65 72 20 77 6f 72 64 | is: ans|wer word|
|00004cb0| 20 34 20 6f 66 20 22 54 | 68 69 73 20 69 73 20 61 | 4 of "T|his is a|
|00004cc0| 20 63 68 75 6e 6b 22 2c | 20 77 68 69 63 68 20 72 | chunk",| which r|
|00004cd0| 65 74 75 72 6e 73 20 22 | 63 68 75 6e 6b 22 20 28 |eturns "|chunk" (|
|00004ce0| 77 6f 72 64 73 20 61 72 | 65 20 73 65 70 61 72 61 |words ar|e separa|
|00004cf0| 74 65 64 20 62 79 20 73 | 70 61 63 65 73 29 2e 0d |ted by s|paces)..|
|00004d00| 0d 57 68 65 6e 20 73 69 | 6d 75 6c 61 74 69 6e 67 |.When si|mulating|
|00004d10| 20 61 72 72 61 79 73 2c | 20 77 65 20 61 72 65 20 | arrays,| we are |
|00004d20| 6e 6f 72 6d 61 6c 6c 79 | 20 69 6e 74 65 72 65 73 |normally| interes|
|00004d30| 74 65 64 20 69 6e 20 74 | 68 65 20 22 69 74 65 6d |ted in t|he "item|
|00004d40| 22 20 63 68 75 6e 6b 2e | 20 42 79 20 64 65 66 61 |" chunk.| By defa|
|00004d50| 75 6c 74 20 48 79 70 65 | 72 43 61 72 64 20 72 65 |ult Hype|rCard re|
|00004d60| 63 6f 67 6e 69 7a 65 73 | 20 74 65 78 74 20 73 65 |cognizes| text se|
|00004d70| 70 61 72 61 74 65 64 20 | 62 79 20 63 6f 6d 6d 61 |parated |by comma|
|00004d80| 73 20 61 73 20 69 74 65 | 6d 73 2c 20 73 6f 20 61 |s as ite|ms, so a|
|00004d90| 73 6b 69 6e 67 20 66 6f | 72 20 69 74 65 6d 20 34 |sking fo|r item 4|
|00004da0| 20 6f 66 20 73 6f 6d 65 | 74 68 69 6e 67 20 63 6f | of some|thing co|
|00004db0| 6e 76 65 6e 74 69 6f 6e | 61 6c 6c 79 20 77 6f 72 |nvention|ally wor|
|00004dc0| 6b 73 20 6c 69 6b 65 20 | 74 68 69 73 3a 0d 20 20 |ks like |this:.  |
|00004dd0| 20 61 6e 73 77 65 72 20 | 69 74 65 6d 20 35 20 6f | answer |item 5 o|
|00004de0| 66 20 22 31 2c 32 2c 33 | 2c 34 2c 35 2c 36 22 20 |f "1,2,3|,4,5,6" |
|00004df0| 2d 2d 20 61 6e 73 77 65 | 72 73 20 22 35 22 0d 0d |-- answe|rs "5"..|
|00004e00| 53 6f 20 74 68 65 20 73 | 74 61 6e 64 61 72 64 20 |So the s|tandard |
|00004e10| 22 69 74 65 6d 22 20 63 | 68 75 6e 6b 20 63 61 6e |"item" c|hunk can|
|00004e20| 20 62 65 20 75 73 65 64 | 20 61 6c 6c 20 62 79 20 | be used| all by |
|00004e30| 69 74 73 65 6c 66 20 74 | 6f 20 73 69 6d 75 6c 61 |itself t|o simula|
|00004e40| 74 65 20 61 20 6f 6e 65 | 2d 64 69 6d 65 6e 73 69 |te a one|-dimensi|
|00004e50| 6f 6e 61 6c 20 61 72 72 | 61 79 2c 20 61 73 73 75 |onal arr|ay, assu|
|00004e60| 6d 69 6e 67 20 74 68 65 | 20 76 61 6c 75 65 73 20 |ming the| values |
|00004e70| 74 68 65 6d 73 65 6c 76 | 65 73 20 64 6f 20 6e 6f |themselv|es do no|
|00004e80| 74 20 63 6f 6e 74 61 69 | 6e 20 63 6f 6d 6d 61 73 |t contai|n commas|
|00004e90| 2e 20 0d 0d 57 68 65 6e | 20 79 6f 75 20 6d 6f 76 |. ..When| you mov|
|00004ea0| 65 20 75 70 20 74 6f 20 | 32 2d 44 20 61 72 72 61 |e up to |2-D arra|
|00004eb0| 79 73 2c 20 79 6f 75 20 | 68 61 76 65 20 74 6f 20 |ys, you |have to |
|00004ec0| 74 68 69 6e 6b 20 61 62 | 6f 75 74 20 68 6f 77 20 |think ab|out how |
|00004ed0| 74 6f 20 64 69 73 74 69 | 6e 67 75 69 73 68 20 79 |to disti|nguish y|
|00004ee0| 6f 75 72 20 72 6f 77 73 | 2e 20 48 79 70 65 72 43 |our rows|. HyperC|
|00004ef0| 61 72 64 27 73 20 63 68 | 75 6e 6b 73 20 63 6f 6d |ard's ch|unks com|
|00004f00| 65 20 74 6f 20 74 68 65 | 20 72 65 73 63 75 65 20 |e to the| rescue |
|00004f10| 61 67 61 69 6e 2c 20 61 | 74 20 6c 65 61 73 74 20 |again, a|t least |
|00004f20| 66 6f 72 20 73 69 6d 70 | 6c 65 20 61 72 72 61 79 |for simp|le array|
|00004f30| 73 2c 20 77 69 74 68 20 | 74 68 65 20 22 6c 69 6e |s, with |the "lin|
|00004f40| 65 22 20 63 68 75 6e 6b | 2e 20 47 69 76 65 6e 20 |e" chunk|. Given |
|00004f50| 61 20 6c 69 74 74 6c 65 | 20 61 72 72 61 79 20 28 |a little| array (|
|00004f60| 6c 65 74 27 73 20 70 72 | 65 74 65 6e 64 20 69 74 |let's pr|etend it|
|00004f70| 27 73 20 63 61 6c 6c 65 | 64 20 22 74 68 65 44 61 |'s calle|d "theDa|
|00004f80| 74 61 22 29 20 6c 69 6b | 65 20 74 68 69 73 3a 0d |ta") lik|e this:.|
|00004f90| 20 20 20 20 20 31 31 2c | 31 32 2c 31 33 0d 20 20 |     11,|12,13.  |
|00004fa0| 20 20 20 32 31 2c 32 32 | 2c 32 33 0d 20 20 20 20 |   21,22|,23.    |
|00004fb0| 20 33 31 2c 33 32 2c 33 | 33 0d 57 65 20 63 61 6e | 31,32,3|3.We can|
|00004fc0| 20 67 65 74 20 63 6f 6c | 75 6d 6e 20 74 68 72 65 | get col|umn thre|
|00004fd0| 65 20 6f 66 20 72 6f 77 | 20 74 77 6f 20 6c 69 6b |e of row| two lik|
|00004fe0| 65 20 74 68 69 73 3a 0d | 20 20 61 6e 73 77 65 72 |e this:.|  answer|
|00004ff0| 20 69 74 65 6d 20 33 20 | 6f 66 20 6c 69 6e 65 20 | item 3 |of line |
|00005000| 32 20 6f 66 20 74 68 65 | 44 61 74 61 20 2d 2d 20 |2 of the|Data -- |
|00005010| 61 6e 73 77 65 72 73 20 | 22 32 33 22 0d 0d 22 56 |answers |"23".."V|
|00005020| 65 72 79 20 6e 69 63 65 | 22 20 79 6f 75 20 73 61 |ery nice|" you sa|
|00005030| 79 2c 20 22 62 75 74 20 | 77 68 61 74 27 73 20 74 |y, "but |what's t|
|00005040| 68 65 20 63 61 74 63 68 | 3f 22 20 57 65 6c 6c 20 |he catch|?" Well |
|00005050| 6e 6f 6e 65 20 72 65 61 | 6c 6c 79 2c 20 75 6e 6c |none rea|lly, unl|
|00005060| 65 73 73 20 79 6f 75 72 | 20 64 61 74 61 20 69 73 |ess your| data is|
|00005070| 20 6e 6f 74 20 66 6f 72 | 6d 61 74 74 65 64 20 61 | not for|matted a|
|00005080| 73 20 63 6f 6d 6d 61 2d | 73 65 70 61 72 61 74 65 |s comma-|separate|
|00005090| 64 20 76 61 6c 75 65 73 | 2c 20 77 69 74 68 20 72 |d values|, with r|
|000050a0| 65 74 75 72 6e 73 20 73 | 65 70 61 72 61 74 69 6e |eturns s|eparatin|
|000050b0| 67 20 65 61 63 68 20 72 | 6f 77 2e 20 49 66 20 79 |g each r|ow. If y|
|000050c0| 6f 75 20 64 61 74 61 20 | 69 73 20 74 72 69 63 6b |ou data |is trick|
|000050d0| 69 65 72 20 79 6f 75 20 | 68 61 76 65 20 74 6f 20 |ier you |have to |
|000050e0| 75 73 65 20 6d 6f 72 65 | 20 65 73 6f 74 65 72 69 |use more| esoteri|
|000050f0| 63 20 64 65 6c 69 6d 69 | 74 65 72 73 20 66 6f 72 |c delimi|ters for|
|00005100| 20 72 6f 77 73 20 61 6e | 64 20 63 6f 6c 75 6d 6e | rows an|d column|
|00005110| 73 2e 20 54 68 69 73 20 | 63 61 6e 20 62 65 20 64 |s. This |can be d|
|00005120| 6f 6e 65 20 62 79 20 66 | 69 64 64 6c 69 6e 67 20 |one by f|iddling |
|00005130| 77 69 74 68 20 74 68 65 | 20 69 74 65 6d 44 65 6c |with the| itemDel|
|00005140| 69 6d 69 74 65 72 20 70 | 72 6f 70 65 72 74 79 2e |imiter p|roperty.|
|00005150| 20 59 6f 75 20 63 61 6e | 20 67 65 74 20 61 6e 64 | You can| get and|
|00005160| 20 73 65 74 20 74 68 69 | 73 20 69 74 65 6d 44 65 | set thi|s itemDe|
|00005170| 6c 69 6d 69 74 65 72 20 | 70 72 6f 70 65 72 74 79 |limiter |property|
|00005180| 3b 20 61 6e 79 20 73 69 | 6e 67 6c 65 20 41 53 43 |; any si|ngle ASC|
|00005190| 49 49 20 63 68 61 72 61 | 63 74 65 72 20 69 73 20 |II chara|cter is |
|000051a0| 70 65 72 6d 69 73 73 69 | 62 6c 65 2e 20 54 68 65 |permissi|ble. The|
|000051b0| 20 69 74 65 6d 44 65 6c | 69 6d 69 74 65 72 27 73 | itemDel|imiter's|
|000051c0| 20 64 65 66 61 75 6c 74 | 20 76 61 6c 75 65 20 69 | default| value i|
|000051d0| 73 20 61 20 63 6f 6d 6d | 61 20 28 22 2c 22 29 2e |s a comm|a (",").|
|000051e0| 20 53 6f 20 69 66 20 79 | 6f 75 27 72 65 20 64 65 | So if y|ou're de|
|000051f0| 61 6c 69 6e 67 20 77 69 | 74 68 20 74 61 62 2d 64 |aling wi|th tab-d|
|00005200| 65 6c 69 6d 69 74 65 64 | 20 76 61 6c 75 65 73 2c |elimited| values,|
|00005210| 20 6a 75 73 74 20 61 70 | 70 65 6e 64 20 74 68 69 | just ap|pend thi|
|00005220| 73 20 48 79 70 65 72 54 | 61 6c 6b 20 63 6f 6d 6d |s HyperT|alk comm|
|00005230| 61 6e 64 20 62 65 66 6f | 72 65 20 79 6f 75 72 20 |and befo|re your |
|00005240| 77 6f 72 6b 20 62 65 67 | 69 6e 73 3a 0d 20 20 20 |work beg|ins:.   |
|00005250| 20 73 65 74 20 69 74 65 | 6d 44 65 6c 69 6d 69 74 | set ite|mDelimit|
|00005260| 65 72 20 74 6f 20 74 61 | 62 0d 20 20 20 20 61 6e |er to ta|b.    an|
|00005270| 73 77 65 72 20 69 74 65 | 6d 20 32 20 6f 66 20 31 |swer ite|m 2 of 1|
|00005280| 20 26 20 74 61 62 20 26 | 20 32 20 26 20 74 61 62 | & tab &| 2 & tab|
|00005290| 20 26 20 33 20 2d 2d 20 | 61 6e 73 77 65 72 73 20 | & 3 -- |answers |
|000052a0| 22 32 22 0d 0d 4f 66 20 | 63 6f 75 72 73 65 2c 20 |"2"..Of |course, |
|000052b0| 79 6f 75 20 63 61 6e 20 | 75 73 65 20 61 6e 79 20 |you can |use any |
|000052c0| 63 68 61 72 61 63 74 65 | 72 20 79 6f 75 20 6c 69 |characte|r you li|
|000052d0| 6b 65 20 74 6f 20 64 65 | 6c 69 6d 69 74 20 72 6f |ke to de|limit ro|
|000052e0| 77 73 20 61 6e 64 20 63 | 6f 6c 75 6d 6e 73 2e 20 |ws and c|olumns. |
|000052f0| 50 72 6f 70 65 72 6c 79 | 20 68 61 6e 64 6c 69 6e |Properly| handlin|
|00005300| 67 20 74 68 65 20 70 6f | 73 73 69 62 6c 69 74 69 |g the po|ssibliti|
|00005310| 65 73 20 72 65 71 75 69 | 72 65 73 20 73 6f 6d 65 |es requi|res some|
|00005320| 20 73 69 6d 70 6c 65 2c | 20 62 75 74 20 63 61 72 | simple,| but car|
|00005330| 65 66 75 6c 2c 20 73 63 | 72 69 70 74 69 6e 67 20 |eful, sc|ripting |
|00005340| 74 68 6f 75 67 68 2c 20 | 77 68 69 63 68 20 74 68 |though, |which th|
|00005350| 65 20 66 75 6e 63 74 69 | 6f 6e 73 20 69 6e 20 74 |e functi|ons in t|
|00005360| 68 65 20 73 63 72 69 70 | 74 20 6f 66 20 74 68 69 |he scrip|t of thi|
|00005370| 73 20 73 74 61 63 6b 20 | 77 69 6c 6c 20 64 6f 20 |s stack |will do |
|00005380| 66 6f 72 20 79 6f 75 2e | 0d 0d 49 6d 70 6f 72 74 |for you.|..Import|
|00005390| 61 6e 74 20 6e 6f 74 65 | 73 3a 0d 31 2e 20 42 65 |ant note|s:.1. Be|
|000053a0| 20 76 65 72 79 20 63 61 | 72 65 66 75 6c 20 61 62 | very ca|reful ab|
|000053b0| 6f 75 74 20 74 68 65 20 | 64 61 74 61 20 79 6f 75 |out the |data you|
|000053c0| 20 70 75 74 20 69 6e 74 | 6f 20 61 6e 20 61 72 72 | put int|o an arr|
|000053d0| 61 79 20 65 6c 65 6d 65 | 6e 74 2e 20 49 66 20 74 |ay eleme|nt. If t|
|000053e0| 68 65 20 64 61 74 61 20 | 63 6f 6e 74 61 69 6e 73 |he data |contains|
|000053f0| 20 61 6e 79 20 6f 66 20 | 63 68 61 72 61 63 74 65 | any of |characte|
|00005400| 72 73 20 79 6f 75 20 61 | 72 65 20 75 73 69 6e 67 |rs you a|re using|
|00005410| 20 74 6f 20 64 65 6c 69 | 6d 69 74 20 72 6f 77 73 | to deli|mit rows|
|00005420| 20 6f 72 20 63 6f 6c 75 | 6d 6e 73 20 79 6f 75 27 | or colu|mns you'|
|00005430| 6c 6c 20 65 6e 64 20 75 | 70 20 77 69 74 68 20 61 |ll end u|p with a|
|00005440| 20 6d 65 73 73 2e 0d 0d | 32 2e 20 49 74 27 73 20 | mess...|2. It's |
|00005450| 70 6f 73 73 69 62 6c 65 | 20 74 68 61 74 20 61 6e |possible| that an|
|00005460| 6f 74 68 65 72 20 73 63 | 72 69 70 74 20 68 61 73 |other sc|ript has|
|00005470| 20 63 68 61 6e 67 65 64 | 20 74 68 65 20 69 74 65 | changed| the ite|
|00005480| 6d 44 65 6c 69 6d 69 74 | 65 72 2c 20 65 76 65 6e |mDelimit|er, even|
|00005490| 20 74 68 6f 75 67 68 20 | 74 68 65 20 69 74 65 6d | though |the item|
|000054a0| 44 65 6c 69 6d 69 74 65 | 72 20 72 65 73 65 74 73 |Delimite|r resets|
|000054b0| 20 69 74 73 65 6c 66 20 | 74 6f 20 63 6f 6d 6d 61 | itself |to comma|
|000054c0| 20 77 68 65 6e 65 76 65 | 72 20 48 79 70 65 72 43 | wheneve|r HyperC|
|000054d0| 61 72 64 20 69 64 6c 65 | 73 2e 20 44 6f 6e 27 74 |ard idle|s. Don't|
|000054e0| 20 6d 61 6b 65 20 61 73 | 73 75 6d 70 74 69 6f 6e | make as|sumption|
|000054f0| 73 20 61 62 6f 75 74 20 | 74 68 65 20 69 74 65 6d |s about |the item|
|00005500| 44 65 6c 69 6d 69 74 65 | 72 2c 20 6f 72 20 6c 65 |Delimite|r, or le|
|00005510| 61 76 65 20 69 74 20 74 | 68 65 20 77 61 79 20 79 |ave it t|he way y|
|00005520| 6f 75 20 73 65 74 20 69 | 74 21 20 41 6c 77 61 79 |ou set i|t! Alway|
|00005530| 73 20 73 74 6f 72 65 20 | 74 68 65 20 6f 6c 64 20 |s store |the old |
|00005540| 76 61 6c 75 65 20 61 6e | 64 20 72 65 73 74 6f 72 |value an|d restor|
|00005550| 65 20 74 68 61 74 20 61 | 66 74 65 72 20 79 6f 75 |e that a|fter you|
|00005560| 72 20 77 6f 72 6b 2c 20 | 6c 69 6b 65 20 74 68 69 |r work, |like thi|
|00005570| 73 3a 0d 20 20 20 20 70 | 75 74 20 74 68 65 20 69 |s:.    p|ut the i|
|00005580| 74 65 6d 44 65 6c 69 6d | 69 74 65 72 20 69 6e 74 |temDelim|iter int|
|00005590| 6f 20 6f 6c 64 44 65 6c | 69 6d 0d 20 20 20 20 73 |o oldDel|im.    s|
|000055a0| 65 74 20 74 68 65 20 69 | 74 65 6d 44 65 6c 69 6d |et the i|temDelim|
|000055b0| 69 74 65 72 20 74 6f 20 | 63 6f 6d 6d 61 0d 20 20 |iter to |comma.  |
|000055c0| 20 20 2d 2d 20 64 6f 20 | 79 6f 75 72 20 73 74 75 |  -- do |your stu|
|000055d0| 66 66 0d 20 20 20 20 73 | 65 74 20 74 68 65 20 69 |ff.    s|et the i|
|000055e0| 74 65 6d 44 65 6c 69 6d | 69 74 65 72 20 74 6f 20 |temDelim|iter to |
|000055f0| 6f 6c 64 44 65 6c 69 6d | 0d 0d 33 2e 20 44 6f 6e |oldDelim|..3. Don|
|00005600| 27 74 20 77 6f 72 72 79 | 20 6d 75 63 68 20 61 62 |'t worry| much ab|
|00005610| 6f 75 74 20 69 6e 69 74 | 69 61 6c 69 7a 69 6e 67 |out init|ializing|
|00005620| 20 79 6f 75 72 20 61 72 | 72 61 79 2e 20 48 79 70 | your ar|ray. Hyp|
|00005630| 65 72 43 61 72 64 20 77 | 69 6c 6c 20 61 75 74 6f |erCard w|ill auto|
|00005640| 6d 61 74 69 63 61 6c 6c | 79 20 63 72 65 61 74 65 |maticall|y create|
|00005650| 20 61 6e 79 20 69 6e 74 | 65 72 76 65 6e 69 6e 67 | any int|ervening|
|00005660| 20 69 74 65 6d 73 20 77 | 68 65 6e 20 79 6f 75 20 | items w|hen you |
|00005670| 72 65 66 65 72 20 74 6f | 20 61 20 6e 65 77 20 69 |refer to| a new i|
|00005680| 74 65 6d 20 6f 75 74 73 | 69 64 65 20 74 68 65 20 |tem outs|ide the |
|00005690| 72 61 6e 67 65 20 6f 66 | 20 65 78 69 73 74 69 6e |range of| existin|
|000056a0| 67 20 64 61 74 61 2e 20 | 53 6f 6d 65 20 65 78 61 |g data. |Some exa|
|000056b0| 6d 70 6c 65 73 3a 0d 20 | 20 20 20 67 65 74 20 22 |mples:. |   get "|
|000056c0| 31 2c 32 22 0d 20 20 20 | 20 70 75 74 20 34 20 69 |1,2".   | put 4 i|
|000056d0| 6e 74 6f 20 69 74 65 6d | 20 34 20 6f 66 20 69 74 |nto item| 4 of it|
|000056e0| 20 2d 2d 20 69 74 20 6e | 6f 77 20 63 6f 6e 74 61 | -- it n|ow conta|
|000056f0| 69 6e 73 20 22 31 2c 32 | 2c 2c 34 22 0d 20 20 20 |ins "1,2|,,4".   |
|00005700| 20 73 65 74 20 74 68 65 | 20 69 74 65 6d 44 65 6c | set the| itemDel|
|00005710| 69 6d 69 74 65 72 20 74 | 6f 20 74 61 62 0d 20 20 |imiter t|o tab.  |
|00005720| 20 20 67 65 74 20 22 31 | 22 20 26 20 74 61 62 20 |  get "1|" & tab |
|00005730| 26 22 32 22 0d 20 20 20 | 20 70 75 74 20 34 20 69 |&"2".   | put 4 i|
|00005740| 6e 74 6f 20 69 74 65 6d | 20 34 20 6f 66 20 69 74 |nto item| 4 of it|
|00005750| 20 2d 2d 20 69 74 20 6e | 6f 77 20 63 6f 6e 74 61 | -- it n|ow conta|
|00005760| 69 6e 73 20 22 31 22 26 | 74 61 62 26 22 32 22 26 |ins "1"&|tab&"2"&|
|00005770| 74 61 62 26 22 33 22 26 | 74 61 62 26 22 34 22 0d |tab&"3"&|tab&"4".|
|00005780| 0d 0d 3d 3d 3d 3d 3d 3d | 3d 3d 3d 3d 3d 3d 3d 3d |..======|========|
|00005790| 3d 3d 3d 3d 3d 3d 3d 3d | 3d 3d 3d 3d 3d 3d 3d 3d |========|========|
|000057a0| 3d 3d 3d 3d 3d 3d 3d 3d | 3d 3d 3d 3d 3d 3d 3d 3d |========|========|
|000057b0| 3d 3d 3d 3d 3d 3d 3d 3d | 3d 3d 3d 3d 3d 3d 3d 3d |========|========|
|000057c0| 3d 3d 3d 3d 3d 3d 3d 0d | 55 73 69 6e 67 20 74 68 |=======.|Using th|
|000057d0| 65 20 41 72 72 61 79 4d | 61 73 74 65 72 20 46 75 |e ArrayM|aster Fu|
|000057e0| 6e 63 74 69 6f 6e 73 0d | 0d 53 6f 2c 20 68 6f 77 |nctions.|.So, how|
|000057f0| 20 64 6f 20 79 6f 75 20 | 75 73 65 20 74 68 65 20 | do you |use the |
|00005800| 61 72 72 61 79 20 66 75 | 6e 63 74 69 6f 6e 73 20 |array fu|nctions |
|00005810| 69 6e 20 74 68 69 73 20 | 73 74 61 63 6b 3f 0d 54 |in this |stack?.T|
|00005820| 6f 20 67 65 74 20 61 6e | 20 61 72 72 61 79 20 65 |o get an| array e|
|00005830| 6c 65 6d 65 6e 74 27 73 | 20 76 61 6c 75 65 2c 20 |lement's| value, |
|00005840| 75 73 65 20 67 65 74 41 | 72 72 61 79 45 6c 65 6d |use getA|rrayElem|
|00005850| 65 6e 74 28 29 20 69 6e | 20 74 68 69 73 20 66 6f |ent() in| this fo|
|00005860| 72 6d 3a 0d 20 20 20 20 | 67 65 74 41 72 72 61 79 |rm:.    |getArray|
|00005870| 45 6c 65 6d 65 6e 74 28 | 74 68 65 41 72 72 61 79 |Element(|theArray|
|00005880| 2c 5b 72 6f 77 5d 2c 5b | 63 6f 6c 5d 2c 5b 72 6f |,[row],[|col],[ro|
|00005890| 77 44 65 6c 69 6d 5d 2c | 5b 63 6f 6c 44 65 6c 69 |wDelim],|[colDeli|
|000058a0| 6d 5d 29 0d 54 6f 20 63 | 68 61 6e 67 65 20 61 6e |m]).To c|hange an|
|000058b0| 20 61 72 72 61 79 20 65 | 6c 65 6d 65 6e 74 27 73 | array e|lement's|
|000058c0| 20 76 61 6c 75 65 2c 20 | 75 73 65 20 73 65 74 41 | value, |use setA|
|000058d0| 72 72 61 79 45 6c 65 6d | 65 6e 74 28 29 20 69 6e |rrayElem|ent() in|
|000058e0| 20 74 68 69 73 20 66 6f | 72 6d 3a 0d 20 20 20 73 | this fo|rm:.   s|
|000058f0| 65 74 41 72 72 61 79 45 | 6c 65 6d 65 6e 74 28 74 |etArrayE|lement(t|
|00005900| 68 65 56 61 6c 75 65 2c | 74 68 65 41 72 72 61 79 |heValue,|theArray|
|00005910| 2c 5b 72 6f 77 5d 2c 5b | 63 6f 6c 5d 2c 5b 72 6f |,[row],[|col],[ro|
|00005920| 77 44 65 6c 69 6d 5d 2c | 5b 63 6f 6c 44 65 6c 69 |wDelim],|[colDeli|
|00005930| 6d 5d 29 0d 54 6f 20 69 | 6e 73 65 72 74 20 61 6e |m]).To i|nsert an|
|00005940| 20 61 72 72 61 79 20 65 | 6c 65 6d 65 6e 74 2c 20 | array e|lement, |
|00005950| 75 73 65 20 69 6e 73 65 | 72 74 41 72 72 61 79 45 |use inse|rtArrayE|
|00005960| 6c 65 6d 65 6e 74 28 29 | 20 69 6e 20 74 68 69 73 |lement()| in this|
|00005970| 20 66 6f 72 6d 3a 0d 20 | 20 20 69 6e 73 65 72 74 | form:. |  insert|
|00005980| 41 72 72 61 79 45 6c 65 | 6d 65 6e 74 28 74 68 65 |ArrayEle|ment(the|
|00005990| 41 72 72 61 79 2c 5b 72 | 6f 77 5d 2c 5b 63 6f 6c |Array,[r|ow],[col|
|000059a0| 5d 2c 5b 72 6f 77 44 65 | 6c 69 6d 5d 2c 5b 63 6f |],[rowDe|lim],[co|
|000059b0| 6c 44 65 6c 69 6d 5d 29 | 0d 54 6f 20 64 65 6c 65 |lDelim])|.To dele|
|000059c0| 74 65 20 61 6e 20 61 72 | 72 61 79 20 65 6c 65 6d |te an ar|ray elem|
|000059d0| 65 6e 74 2c 20 75 73 65 | 20 64 65 6c 65 74 65 41 |ent, use| deleteA|
|000059e0| 72 72 61 79 45 6c 65 6d | 65 6e 74 28 29 20 69 6e |rrayElem|ent() in|
|000059f0| 20 74 68 69 73 20 66 6f | 72 6d 3a 0d 20 20 20 20 | this fo|rm:.    |
|00005a00| 64 65 6c 65 74 65 41 72 | 72 61 79 45 6c 65 6d 65 |deleteAr|rayEleme|
|00005a10| 6e 74 28 74 68 65 41 72 | 72 61 79 2c 5b 72 6f 77 |nt(theAr|ray,[row|
|00005a20| 5d 2c 5b 63 6f 6c 5d 2c | 5b 72 6f 77 44 65 6c 69 |],[col],|[rowDeli|
|00005a30| 6d 5d 2c 5b 63 6f 6c 44 | 65 6c 69 6d 5d 29 0d 54 |m],[colD|elim]).T|
|00005a40| 6f 20 63 68 61 6e 67 65 | 20 61 6e 20 61 72 72 61 |o change| an arra|
|00005a50| 79 27 73 20 64 65 6c 69 | 6d 69 74 65 72 73 2c 20 |y's deli|miters, |
|00005a60| 75 73 65 20 63 6f 6e 76 | 65 72 74 41 72 72 61 79 |use conv|ertArray|
|00005a70| 28 29 20 69 6e 20 74 68 | 69 73 20 66 6f 72 6d 3a |() in th|is form:|
|00005a80| 0d 20 20 20 20 63 6f 6e | 76 65 72 74 41 72 72 61 |.    con|vertArra|
|00005a90| 79 28 54 68 65 41 72 72 | 61 79 2c 52 6f 77 44 65 |y(TheArr|ay,RowDe|
|00005aa0| 6c 69 6d 4e 65 77 2c 43 | 6f 6c 44 65 6c 69 6d 4e |limNew,C|olDelimN|
|00005ab0| 65 77 2c 5b 52 6f 77 44 | 65 6c 69 6d 4f 6c 64 5d |ew,[RowD|elimOld]|
|00005ac0| 2c 5b 43 6f 6c 44 65 6c | 69 6d 4f 6c 64 5d 29 0d |,[ColDel|imOld]).|
|00005ad0| 50 61 72 61 6d 65 74 65 | 72 73 20 69 6e 20 73 71 |Paramete|rs in sq|
|00005ae0| 75 61 72 65 20 62 72 61 | 63 6b 65 74 73 20 28 5b |uare bra|ckets ([|
|00005af0| 5d 29 20 61 72 65 20 6f | 70 74 69 6f 6e 61 6c 2e |]) are o|ptional.|
|00005b00| 0d 0d 50 61 72 61 6d 65 | 74 65 72 73 0d 74 68 65 |..Parame|ters.the|
|00005b10| 56 61 6c 75 65 20 20 20 | 20 20 20 20 20 20 20 20 |Value   |        |
|00005b20| 20 20 54 68 65 20 64 61 | 74 61 20 74 6f 20 62 65 |  The da|ta to be|
|00005b30| 20 69 6e 73 65 72 74 65 | 64 2e 20 4f 6e 6c 79 20 | inserte|d. Only |
|00005b40| 75 73 65 64 20 62 79 20 | 73 65 74 41 72 72 61 79 |used by |setArray|
|00005b50| 45 6c 65 6d 65 6e 74 2e | 0d 74 68 65 41 72 72 61 |Element.|.theArra|
|00005b60| 79 20 20 20 20 20 20 20 | 20 20 20 20 20 54 68 69 |y       |     Thi|
|00005b70| 73 20 69 73 20 74 68 65 | 20 63 6f 6e 74 61 69 6e |s is the| contain|
|00005b80| 65 72 20 74 68 61 74 20 | 68 6f 6c 64 73 20 74 68 |er that |holds th|
|00005b90| 65 20 61 72 72 61 79 0d | 5b 72 6f 77 5d 20 20 20 |e array.|[row]   |
|00005ba0| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 54 |        |       T|
|00005bb0| 68 65 20 64 65 73 69 72 | 65 64 20 72 6f 77 2e 20 |he desir|ed row. |
|00005bc0| 49 66 20 6c 65 66 74 20 | 65 6d 70 74 79 2c 20 61 |If left |empty, a|
|00005bd0| 6c 6c 20 72 6f 77 73 20 | 77 69 6c 6c 20 62 65 20 |ll rows |will be |
|00005be0| 70 72 6f 63 65 73 73 65 | 64 0d 5b 63 6f 6c 5d 20 |processe|d.[col] |
|00005bf0| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |        |        |
|00005c00| 20 20 20 54 68 65 20 64 | 65 73 69 72 65 64 20 63 |   The d|esired c|
|00005c10| 6f 6c 75 6d 6e 2e 20 49 | 66 20 6c 65 66 74 20 65 |olumn. I|f left e|
|00005c20| 6d 70 74 79 2c 20 61 6c | 6c 20 63 6f 6c 75 6d 6e |mpty, al|l column|
|00005c30| 73 20 77 69 6c 6c 20 62 | 65 20 70 72 6f 63 65 73 |s will b|e proces|
|00005c40| 73 65 64 0d 5b 72 6f 77 | 44 65 6c 69 6d 5d 20 20 |sed.[row|Delim]  |
|00005c50| 20 20 20 20 20 54 68 65 | 20 63 68 61 72 61 63 74 |     The| charact|
|00005c60| 65 72 20 74 68 61 74 20 | 73 65 70 61 72 61 74 65 |er that |separate|
|00005c70| 73 20 72 6f 77 73 2e 20 | 44 65 66 61 75 6c 74 20 |s rows. |Default |
|00005c80| 69 73 20 61 20 72 65 74 | 75 72 6e 0d 5b 63 6f 6c |is a ret|urn.[col|
|00005c90| 44 65 6c 69 6d 5d 20 20 | 20 20 20 20 20 20 20 54 |Delim]  |       T|
|00005ca0| 68 65 20 63 68 61 72 61 | 63 74 65 72 20 74 68 61 |he chara|cter tha|
|00005cb0| 74 20 73 65 70 61 72 61 | 74 65 73 20 63 6f 6c 75 |t separa|tes colu|
|00005cc0| 6d 6e 73 2e 20 44 65 66 | 61 75 6c 74 20 69 73 20 |mns. Def|ault is |
|00005cd0| 61 20 63 6f 6d 6d 61 0d | 5b 52 6f 77 44 65 6c 69 |a comma.|[RowDeli|
|00005ce0| 6d 4e 65 77 5d 20 20 54 | 68 65 20 6e 65 77 20 72 |mNew]  T|he new r|
|00005cf0| 6f 77 20 64 65 6c 69 6d | 69 74 65 72 2e 20 55 73 |ow delim|iter. Us|
|00005d00| 65 64 20 6f 6e 6c 79 20 | 62 79 20 63 6f 6e 76 65 |ed only |by conve|
|00005d10| 72 74 41 72 72 61 79 28 | 29 2e 0d 5b 43 6f 6c 44 |rtArray(|)..[ColD|
|00005d20| 65 6c 69 6d 4e 65 77 5d | 20 20 20 20 54 68 65 20 |elimNew]|    The |
|00005d30| 6e 65 77 20 63 6f 6c 75 | 6d 6e 20 64 65 6c 69 6d |new colu|mn delim|
|00005d40| 69 74 65 72 2e 20 55 73 | 65 64 20 6f 6e 6c 79 20 |iter. Us|ed only |
|00005d50| 62 79 20 63 6f 6e 76 65 | 72 74 41 72 72 61 79 28 |by conve|rtArray(|
|00005d60| 29 2e 0d 5b 52 6f 77 44 | 65 6c 69 6d 4f 6c 64 5d |)..[RowD|elimOld]|
|00005d70| 20 20 20 20 54 68 65 20 | 6f 6c 64 20 72 6f 77 20 |    The |old row |
|00005d80| 64 65 6c 69 6d 69 74 65 | 72 2e 20 55 73 65 64 20 |delimite|r. Used |
|00005d90| 6f 6e 6c 79 20 62 79 20 | 63 6f 6e 76 65 72 74 41 |only by |convertA|
|00005da0| 72 72 61 79 28 29 2e 20 | 44 65 66 61 75 6c 74 20 |rray(). |Default |
|00005db0| 69 73 20 72 65 74 75 72 | 6e 0d 5b 43 6f 6c 44 65 |is retur|n.[ColDe|
|00005dc0| 6c 69 6d 4f 6c 64 5d 20 | 20 20 20 20 20 54 68 65 |limOld] |     The|
|00005dd0| 20 6f 6c 64 20 63 6f 6c | 75 6d 6e 20 64 65 6c 69 | old col|umn deli|
|00005de0| 6d 69 74 65 72 2e 20 55 | 73 65 64 20 6f 6e 6c 79 |miter. U|sed only|
|00005df0| 20 62 79 20 63 6f 6e 76 | 65 72 74 41 72 72 61 79 | by conv|ertArray|
|00005e00| 28 29 2e 20 44 65 66 61 | 75 6c 74 20 69 73 20 63 |(). Defa|ult is c|
|00005e10| 6f 6d 6d 61 0d 20 20 20 | 20 20 20 20 20 20 20 20 |omma.   |        |
|00005e20| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 0d |        |       .|
|00005e30| 4e 6f 74 65 3a 20 5b 72 | 6f 77 5d 2c 5b 63 6f 6c |Note: [r|ow],[col|
|00005e40| 5d 2c 5b 72 6f 77 44 65 | 6c 69 6d 5d 2c 5b 63 6f |],[rowDe|lim],[co|
|00005e50| 6c 44 65 6c 69 6d 5d 20 | 63 61 6e 20 62 65 20 48 |lDelim] |can be H|
|00005e60| 79 70 65 72 54 61 6c 6b | 20 65 78 70 72 65 73 73 |yperTalk| express|
|00005e70| 69 6f 6e 73 2c 20 61 73 | 20 6c 6f 6e 67 20 61 73 |ions, as| long as|
|00005e80| 20 74 68 65 79 20 65 76 | 61 6c 75 61 74 65 20 74 | they ev|aluate t|
|00005e90| 6f 20 61 20 73 69 6e 67 | 6c 65 20 63 68 61 72 61 |o a sing|le chara|
|00005ea0| 63 74 65 72 20 28 69 65 | 20 22 6e 75 6d 74 6f 63 |cter (ie| "numtoc|
|00005eb0| 68 61 72 28 33 32 29 22 | 20 6f 72 20 22 73 70 61 |har(32)"| or "spa|
|00005ec0| 63 65 22 20 61 72 65 20 | 65 71 75 69 76 69 6c 65 |ce" are |equivile|
|00005ed0| 6e 74 20 74 6f 20 22 20 | 22 0d 0d 47 65 74 41 72 |nt to " |"..GetAr|
|00005ee0| 72 61 79 45 6c 65 6d 65 | 6e 74 28 29 0d 20 20 20 |rayEleme|nt().   |
|00005ef0| 20 67 65 74 41 72 72 61 | 79 45 6c 65 6d 65 6e 74 | getArra|yElement|
|00005f00| 28 74 68 65 41 72 72 61 | 79 2c 5b 72 6f 77 5d 2c |(theArra|y,[row],|
|00005f10| 5b 63 6f 6c 5d 2c 5b 72 | 6f 77 44 65 6c 69 6d 5d |[col],[r|owDelim]|
|00005f20| 2c 5b 63 6f 6c 44 65 6c | 69 6d 5d 29 0d 0d 5b 72 |,[colDel|im])..[r|
|00005f30| 6f 77 44 65 6c 69 6d 5d | 20 61 6e 64 20 5b 63 6f |owDelim]| and [co|
|00005f40| 6c 44 65 6c 69 6d 5d 20 | 61 72 65 20 6f 70 74 69 |lDelim] |are opti|
|00005f50| 6f 6e 61 6c 2c 20 63 6f | 6d 6d 61 20 61 6e 64 20 |onal, co|mma and |
|00005f60| 72 65 74 75 72 6e 20 61 | 72 65 20 74 68 65 20 61 |return a|re the a|
|00005f70| 73 73 75 6d 65 64 20 64 | 65 66 61 75 6c 74 20 76 |ssumed d|efault v|
|00005f80| 61 6c 75 65 73 2e 0d 49 | 66 20 5b 72 6f 77 5d 20 |alues..I|f [row] |
|00005f90| 61 6e 64 20 5b 63 6f 6c | 5d 20 68 61 76 65 20 69 |and [col|] have i|
|00005fa0| 6e 74 65 67 65 72 20 76 | 61 6c 75 65 73 20 74 68 |nteger v|alues th|
|00005fb0| 65 20 73 70 65 63 69 66 | 69 65 64 20 63 65 6c 6c |e specif|ied cell|
|00005fc0| 20 69 73 20 72 65 74 75 | 72 6e 65 64 0d 49 66 20 | is retu|rned.If |
|00005fd0| 5b 72 6f 77 5d 20 69 73 | 20 65 6d 70 74 79 20 74 |[row] is| empty t|
|00005fe0| 68 65 20 65 6e 74 69 72 | 65 20 63 6f 6c 75 6d 6e |he entir|e column|
|00005ff0| 20 73 70 65 63 69 66 69 | 65 64 20 62 79 20 5b 63 | specifi|ed by [c|
|00006000| 6f 6c 5d 20 69 73 20 72 | 65 74 75 72 6e 65 64 0d |ol] is r|eturned.|
|00006010| 49 66 20 5b 63 6f 6c 5d | 20 69 73 20 65 6d 70 74 |If [col]| is empt|
|00006020| 79 20 74 68 65 20 65 6e | 74 69 72 65 20 72 6f 77 |y the en|tire row|
|00006030| 20 73 70 65 63 69 66 69 | 65 64 20 62 79 20 5b 72 | specifi|ed by [r|
|00006040| 6f 77 5d 20 69 73 20 72 | 65 74 75 72 6e 65 64 0d |ow] is r|eturned.|
|00006050| 49 66 20 5b 72 6f 77 5d | 20 61 6e 64 20 5b 5d 20 |If [row]| and [] |
|00006060| 61 72 65 20 62 6f 74 68 | 20 65 6d 70 74 79 20 74 |are both| empty t|
|00006070| 68 65 20 65 6e 74 69 72 | 65 20 61 72 72 61 79 20 |he entir|e array |
|00006080| 69 73 20 72 65 74 75 72 | 6e 65 64 2e 20 28 72 65 |is retur|ned. (re|
|00006090| 64 75 6e 64 61 6e 74 2c | 20 65 68 3f 29 0d 0d 45 |dundant,| eh?)..E|
|000060a0| 78 61 6d 70 6c 65 73 3a | 0d 20 20 20 20 61 6e 73 |xamples:|.    ans|
|000060b0| 77 65 72 20 67 65 74 41 | 72 72 61 79 45 6c 65 6d |wer getA|rrayElem|
|000060c0| 65 6e 74 28 74 68 65 41 | 72 72 61 79 2c 33 2c 34 |ent(theA|rray,3,4|
|000060d0| 29 0d 20 20 20 20 2d 2d | 20 72 65 74 75 72 6e 73 |).    --| returns|
|000060e0| 20 63 6f 6c 20 34 2c 20 | 72 6f 77 20 33 20 6f 66 | col 4, |row 3 of|
|000060f0| 20 74 68 65 41 72 72 61 | 79 0d 20 20 20 20 61 6e | theArra|y.    an|
|00006100| 73 77 65 72 20 67 65 74 | 41 72 72 61 79 45 6c 65 |swer get|ArrayEle|
|00006110| 6d 65 6e 74 28 74 68 65 | 41 72 72 61 79 2c 33 2c |ment(the|Array,3,|
|00006120| 34 2c 2c 74 61 62 29 0d | 20 20 20 20 2d 2d 20 73 |4,,tab).|    -- s|
|00006130| 61 6d 65 20 62 75 74 20 | 74 61 62 2d 64 65 6c 69 |ame but |tab-deli|
|00006140| 6d 69 74 65 64 20 63 6f | 6c 75 6d 6e 73 0d 0d 0d |mited co|lumns...|
|00006150| 53 65 74 41 72 72 61 79 | 45 6c 65 6d 65 6e 74 28 |SetArray|Element(|
|00006160| 29 0d 20 20 20 20 73 65 | 74 41 72 72 61 79 45 6c |).    se|tArrayEl|
|00006170| 65 6d 65 6e 74 28 74 68 | 65 56 61 6c 75 65 2c 74 |ement(th|eValue,t|
|00006180| 68 65 41 72 72 61 79 2c | 5b 72 6f 77 5d 2c 5b 63 |heArray,|[row],[c|
|00006190| 6f 6c 5d 2c 5b 72 6f 77 | 44 65 6c 69 6d 5d 2c 5b |ol],[row|Delim],[|
|000061a0| 63 6f 6c 44 65 6c 69 6d | 5d 29 0d 0d 5b 72 6f 77 |colDelim|])..[row|
|000061b0| 44 65 6c 69 6d 5d 20 61 | 6e 64 20 5b 63 6f 6c 44 |Delim] a|nd [colD|
|000061c0| 65 6c 69 6d 5d 20 61 72 | 65 20 6f 70 74 69 6f 6e |elim] ar|e option|
|000061d0| 61 6c 2c 20 63 6f 6d 6d | 61 20 61 6e 64 20 72 65 |al, comm|a and re|
|000061e0| 74 75 72 6e 20 61 72 65 | 20 74 68 65 20 61 73 73 |turn are| the ass|
|000061f0| 75 6d 65 64 20 64 65 66 | 61 75 6c 74 20 76 61 6c |umed def|ault val|
|00006200| 75 65 73 2e 0d 49 66 20 | 5b 72 6f 77 5d 20 61 6e |ues..If |[row] an|
|00006210| 64 20 5b 63 6f 6c 5d 20 | 68 61 76 65 20 69 6e 74 |d [col] |have int|
|00006220| 65 67 65 72 20 76 61 6c | 75 65 73 20 74 68 65 20 |eger val|ues the |
|00006230| 73 70 65 63 69 66 69 65 | 64 20 63 65 6c 6c 20 69 |specifie|d cell i|
|00006240| 73 20 63 68 61 6e 67 65 | 64 20 74 6f 20 74 68 65 |s change|d to the|
|00006250| 44 61 74 61 0d 49 66 20 | 5b 72 6f 77 5d 20 69 73 |Data.If |[row] is|
|00006260| 20 65 6d 70 74 79 20 65 | 61 63 68 20 63 65 6c 6c | empty e|ach cell|
|00006270| 20 69 6e 20 74 68 65 20 | 63 6f 6c 75 6d 6e 20 73 | in the |column s|
|00006280| 70 65 63 69 66 69 65 64 | 20 62 79 20 5b 63 6f 6c |pecified| by [col|
|00006290| 5d 20 69 73 20 63 68 61 | 6e 67 65 64 20 74 6f 20 |] is cha|nged to |
|000062a0| 74 68 65 44 61 74 61 0d | 49 66 20 5b 63 6f 6c 5d |theData.|If [col]|
|000062b0| 20 69 73 20 65 6d 70 74 | 79 20 74 68 65 20 65 6e | is empt|y the en|
|000062c0| 74 69 72 65 20 72 6f 77 | 20 73 70 65 63 69 66 69 |tire row| specifi|
|000062d0| 65 64 20 62 79 20 5b 72 | 6f 77 5d 20 69 73 20 63 |ed by [r|ow] is c|
|000062e0| 68 61 6e 67 65 64 20 74 | 6f 20 74 68 65 44 61 74 |hanged t|o theDat|
|000062f0| 61 0d 49 66 20 5b 72 6f | 77 5d 20 61 6e 64 20 5b |a.If [ro|w] and [|
|00006300| 5d 20 61 72 65 20 62 6f | 74 68 20 65 6d 70 74 79 |] are bo|th empty|
|00006310| 20 74 68 65 20 65 6e 74 | 69 72 65 20 61 72 72 61 | the ent|ire arra|
|00006320| 79 20 6e 6f 74 68 69 6e | 67 20 68 61 70 70 65 6e |y nothin|g happen|
|00006330| 73 2e 0d 0d 45 78 61 6d | 70 6c 65 73 3a 0d 20 20 |s...Exam|ples:.  |
|00006340| 20 20 61 6e 73 77 65 72 | 20 73 65 74 41 72 72 61 |  answer| setArra|
|00006350| 79 45 6c 65 6d 65 6e 74 | 28 22 74 65 73 74 22 2c |yElement|("test",|
|00006360| 74 68 65 41 72 72 61 79 | 2c 33 2c 34 29 0d 20 20 |theArray|,3,4).  |
|00006370| 20 20 2d 2d 20 70 75 74 | 73 20 22 74 65 73 74 22 |  -- put|s "test"|
|00006380| 20 69 6e 74 6f 20 63 6f | 6c 20 34 2c 20 72 6f 77 | into co|l 4, row|
|00006390| 20 33 20 6f 66 20 74 68 | 65 41 72 72 61 79 0d 20 | 3 of th|eArray. |
|000063a0| 20 20 20 61 6e 73 77 65 | 72 20 73 65 74 41 72 72 |   answe|r setArr|
|000063b0| 61 79 45 6c 65 6d 65 6e | 74 28 22 74 65 73 74 22 |ayElemen|t("test"|
|000063c0| 2c 74 68 65 41 72 72 61 | 79 2c 33 2c 34 2c 2c 74 |,theArra|y,3,4,,t|
|000063d0| 61 62 29 0d 20 20 20 20 | 2d 2d 20 73 61 6d 65 20 |ab).    |-- same |
|000063e0| 62 75 74 20 74 61 62 2d | 64 65 6c 69 6d 69 74 65 |but tab-|delimite|
|000063f0| 64 20 63 6f 6c 75 6d 6e | 73 0d 0d 0d 49 6e 73 65 |d column|s...Inse|
+--------+-------------------------+-------------------------+--------+--------+
Only 25.0 KB of data is shown above.